home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue37 / outlook / Outlook / MSForms_TLB.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-09-30  |  323.6 KB  |  7,113 lines
  1. unit MSForms_TLB;
  2.  
  3. { This file contains pascal declarations imported from a type library.
  4.   This file will be written during each import or refresh of the type
  5.   library editor.  Changes to this file will be discarded during the
  6.   refresh process. }
  7.  
  8. { Microsoft Forms 2.0 Object Library }
  9. { Version 2.0 }
  10.  
  11. { Conversion log:
  12.   Warning: 'Label' is a reserved word. Label changed to Label_
  13.   Warning: 'Object' is a reserved word. IControl.Object changed to Object_
  14.   Warning: IControl.BoundValue return parameter: Too many indirections, type changed to Pointer.. [ ^OleVariant ]
  15.   Warning: IMdcText.Value return parameter: Too many indirections, type changed to Pointer.. [ ^OleVariant ]
  16.   Warning: IMdcList.BoundColumn return parameter: Too many indirections, type changed to Pointer.. [ ^OleVariant ]
  17.   Warning: IMdcList.ListIndex return parameter: Too many indirections, type changed to Pointer.. [ ^OleVariant ]
  18.   Warning: IMdcList.ListWidth return parameter: Too many indirections, type changed to Pointer.. [ ^OleVariant ]
  19.   Warning: IMdcList.TextColumn return parameter: Too many indirections, type changed to Pointer.. [ ^OleVariant ]
  20.   Warning: IMdcList.TopIndex return parameter: Too many indirections, type changed to Pointer.. [ ^OleVariant ]
  21.   Warning: IMdcList.Value return parameter: Too many indirections, type changed to Pointer.. [ ^OleVariant ]
  22.   Warning: IMdcCombo.BoundColumn return parameter: Too many indirections, type changed to Pointer.. [ ^OleVariant ]
  23.   Warning: IMdcCombo.ListIndex return parameter: Too many indirections, type changed to Pointer.. [ ^OleVariant ]
  24.   Warning: IMdcCombo.ListWidth return parameter: Too many indirections, type changed to Pointer.. [ ^OleVariant ]
  25.   Warning: IMdcCombo.TextColumn return parameter: Too many indirections, type changed to Pointer.. [ ^OleVariant ]
  26.   Warning: IMdcCombo.TopIndex return parameter: Too many indirections, type changed to Pointer.. [ ^OleVariant ]
  27.   Warning: IMdcCombo.Value return parameter: Too many indirections, type changed to Pointer.. [ ^OleVariant ]
  28.   Warning: IMdcCheckBox.Value return parameter: Too many indirections, type changed to Pointer.. [ ^OleVariant ]
  29.   Warning: IWHTMLSelect.Values return parameter: Too many indirections, type changed to Pointer.. [ ^OleVariant ]
  30.   Warning: IWHTMLSelect.DisplayValues return parameter: Too many indirections, type changed to Pointer.. [ ^OleVariant ]
  31.   Warning: IControl.BoundValue return parameter of type Pointer was written as OleVariant
  32.   Warning: IControl.BoundValue return parameter of type Pointer was written as OleVariant
  33.   Warning: IControl.BoundValue return parameter of type Pointer was written as OleVariant
  34.   Warning: IControl.BoundValue return parameter of type Pointer was written as OleVariant
  35.   Warning: IMdcText.Value return parameter of type Pointer was written as OleVariant
  36.   Warning: IMdcText.Value return parameter of type Pointer was written as OleVariant
  37.   Warning: IMdcText.Value return parameter of type Pointer was written as OleVariant
  38.   Warning: IMdcText.Value return parameter of type Pointer was written as OleVariant
  39.   Warning: IMdcList.BoundColumn return parameter of type Pointer was written as OleVariant
  40.   Warning: IMdcList.BoundColumn return parameter of type Pointer was written as OleVariant
  41.   Warning: IMdcList.ListIndex return parameter of type Pointer was written as OleVariant
  42.   Warning: IMdcList.ListIndex return parameter of type Pointer was written as OleVariant
  43.   Warning: IMdcList.ListWidth return parameter of type Pointer was written as OleVariant
  44.   Warning: IMdcList.ListWidth return parameter of type Pointer was written as OleVariant
  45.   Warning: IMdcList.TextColumn return parameter of type Pointer was written as OleVariant
  46.   Warning: IMdcList.TextColumn return parameter of type Pointer was written as OleVariant
  47.   Warning: IMdcList.TopIndex return parameter of type Pointer was written as OleVariant
  48.   Warning: IMdcList.TopIndex return parameter of type Pointer was written as OleVariant
  49.   Warning: IMdcList.Value return parameter of type Pointer was written as OleVariant
  50.   Warning: IMdcList.Value return parameter of type Pointer was written as OleVariant
  51.   Warning: IMdcList.BoundColumn return parameter of type Pointer was written as OleVariant
  52.   Warning: IMdcList.ListIndex return parameter of type Pointer was written as OleVariant
  53.   Warning: IMdcList.ListWidth return parameter of type Pointer was written as OleVariant
  54.   Warning: IMdcList.TextColumn return parameter of type Pointer was written as OleVariant
  55.   Warning: IMdcList.TopIndex return parameter of type Pointer was written as OleVariant
  56.   Warning: IMdcList.Value return parameter of type Pointer was written as OleVariant
  57.   Warning: IMdcList.BoundColumn return parameter of type Pointer was written as OleVariant
  58.   Warning: IMdcList.ListIndex return parameter of type Pointer was written as OleVariant
  59.   Warning: IMdcList.ListWidth return parameter of type Pointer was written as OleVariant
  60.   Warning: IMdcList.TextColumn return parameter of type Pointer was written as OleVariant
  61.   Warning: IMdcList.TopIndex return parameter of type Pointer was written as OleVariant
  62.   Warning: IMdcList.Value return parameter of type Pointer was written as OleVariant
  63.   Warning: IMdcCombo.BoundColumn return parameter of type Pointer was written as OleVariant
  64.   Warning: IMdcCombo.BoundColumn return parameter of type Pointer was written as OleVariant
  65.   Warning: IMdcCombo.ListIndex return parameter of type Pointer was written as OleVariant
  66.   Warning: IMdcCombo.ListIndex return parameter of type Pointer was written as OleVariant
  67.   Warning: IMdcCombo.ListWidth return parameter of type Pointer was written as OleVariant
  68.   Warning: IMdcCombo.ListWidth return parameter of type Pointer was written as OleVariant
  69.   Warning: IMdcCombo.TextColumn return parameter of type Pointer was written as OleVariant
  70.   Warning: IMdcCombo.TextColumn return parameter of type Pointer was written as OleVariant
  71.   Warning: IMdcCombo.TopIndex return parameter of type Pointer was written as OleVariant
  72.   Warning: IMdcCombo.TopIndex return parameter of type Pointer was written as OleVariant
  73.   Warning: IMdcCombo.Value return parameter of type Pointer was written as OleVariant
  74.   Warning: IMdcCombo.Value return parameter of type Pointer was written as OleVariant
  75.   Warning: IMdcCombo.BoundColumn return parameter of type Pointer was written as OleVariant
  76.   Warning: IMdcCombo.ListIndex return parameter of type Pointer was written as OleVariant
  77.   Warning: IMdcCombo.ListWidth return parameter of type Pointer was written as OleVariant
  78.   Warning: IMdcCombo.TextColumn return parameter of type Pointer was written as OleVariant
  79.   Warning: IMdcCombo.TopIndex return parameter of type Pointer was written as OleVariant
  80.   Warning: IMdcCombo.Value return parameter of type Pointer was written as OleVariant
  81.   Warning: IMdcCombo.BoundColumn return parameter of type Pointer was written as OleVariant
  82.   Warning: IMdcCombo.ListIndex return parameter of type Pointer was written as OleVariant
  83.   Warning: IMdcCombo.ListWidth return parameter of type Pointer was written as OleVariant
  84.   Warning: IMdcCombo.TextColumn return parameter of type Pointer was written as OleVariant
  85.   Warning: IMdcCombo.TopIndex return parameter of type Pointer was written as OleVariant
  86.   Warning: IMdcCombo.Value return parameter of type Pointer was written as OleVariant
  87.   Warning: IMdcCheckBox.Value return parameter of type Pointer was written as OleVariant
  88.   Warning: IMdcCheckBox.Value return parameter of type Pointer was written as OleVariant
  89.   Warning: IMdcCheckBox.Value return parameter of type Pointer was written as OleVariant
  90.   Warning: IMdcCheckBox.Value return parameter of type Pointer was written as OleVariant
  91.   Warning: IMdcCheckBox.Value return parameter of type Pointer was written as OleVariant
  92.   Warning: IMdcCheckBox.Value return parameter of type Pointer was written as OleVariant
  93.   Warning: IWHTMLSelect.Values return parameter of type Pointer was written as OleVariant
  94.   Warning: IWHTMLSelect.Values return parameter of type Pointer was written as OleVariant
  95.   Warning: IWHTMLSelect.DisplayValues return parameter of type Pointer was written as OleVariant
  96.   Warning: IWHTMLSelect.DisplayValues return parameter of type Pointer was written as OleVariant
  97.   Warning: IWHTMLSelect.Values return parameter of type Pointer was written as OleVariant
  98.   Warning: IWHTMLSelect.DisplayValues return parameter of type Pointer was written as OleVariant
  99.   Warning: IWHTMLSelect.Values return parameter of type Pointer was written as OleVariant
  100.   Warning: IWHTMLSelect.DisplayValues return parameter of type Pointer was written as OleVariant
  101.   Hint: Class is not registered.  Ambient properties cannot be determined.
  102.   Hint: Class is not registered.  Ambient properties cannot be determined.
  103.   Hint: Class is not registered.  Ambient properties cannot be determined.
  104.   Hint: Class is not registered.  Ambient properties cannot be determined.
  105.   Warning: IMdcText.Value return parameter of type Pointer was written as OleVariant
  106.   Warning: IMdcText.Value return parameter of type Pointer was written as OleVariant
  107.   Hint: Class is not registered.  Ambient properties cannot be determined.
  108.   Warning: IMdcText.Value return parameter of type Pointer was written as OleVariant
  109.   Warning: IMdcList.BoundColumn return parameter of type Pointer was written as OleVariant
  110.   Warning: IMdcList.BoundColumn return parameter of type Pointer was written as OleVariant
  111.   Warning: IMdcList.ListIndex return parameter of type Pointer was written as OleVariant
  112.   Warning: IMdcList.ListIndex return parameter of type Pointer was written as OleVariant
  113.   Warning: IMdcList.ListWidth return parameter of type Pointer was written as OleVariant
  114.   Warning: IMdcList.ListWidth return parameter of type Pointer was written as OleVariant
  115.   Warning: IMdcList.TextColumn return parameter of type Pointer was written as OleVariant
  116.   Warning: IMdcList.TextColumn return parameter of type Pointer was written as OleVariant
  117.   Warning: IMdcList.TopIndex return parameter of type Pointer was written as OleVariant
  118.   Warning: IMdcList.TopIndex return parameter of type Pointer was written as OleVariant
  119.   Warning: IMdcList.Value return parameter of type Pointer was written as OleVariant
  120.   Warning: IMdcList.Value return parameter of type Pointer was written as OleVariant
  121.   Warning: IMdcList.ListWidth return parameter of type Pointer was written as OleVariant
  122.   Hint: Class is not registered.  Ambient properties cannot be determined.
  123.   Warning: IMdcList.BoundColumn return parameter of type Pointer was written as OleVariant
  124.   Warning: IMdcList.ListIndex return parameter of type Pointer was written as OleVariant
  125.   Warning: IMdcList.TextColumn return parameter of type Pointer was written as OleVariant
  126.   Warning: IMdcList.TopIndex return parameter of type Pointer was written as OleVariant
  127.   Warning: IMdcList.Value return parameter of type Pointer was written as OleVariant
  128.   Warning: IMdcCombo.BoundColumn return parameter of type Pointer was written as OleVariant
  129.   Warning: IMdcCombo.BoundColumn return parameter of type Pointer was written as OleVariant
  130.   Warning: IMdcCombo.ListIndex return parameter of type Pointer was written as OleVariant
  131.   Warning: IMdcCombo.ListIndex return parameter of type Pointer was written as OleVariant
  132.   Warning: IMdcCombo.ListWidth return parameter of type Pointer was written as OleVariant
  133.   Warning: IMdcCombo.ListWidth return parameter of type Pointer was written as OleVariant
  134.   Warning: IMdcCombo.TextColumn return parameter of type Pointer was written as OleVariant
  135.   Warning: IMdcCombo.TextColumn return parameter of type Pointer was written as OleVariant
  136.   Warning: IMdcCombo.TopIndex return parameter of type Pointer was written as OleVariant
  137.   Warning: IMdcCombo.TopIndex return parameter of type Pointer was written as OleVariant
  138.   Warning: IMdcCombo.Value return parameter of type Pointer was written as OleVariant
  139.   Warning: IMdcCombo.Value return parameter of type Pointer was written as OleVariant
  140.   Hint: Class is not registered.  Ambient properties cannot be determined.
  141.   Warning: IMdcCombo.BoundColumn return parameter of type Pointer was written as OleVariant
  142.   Warning: IMdcCombo.ListIndex return parameter of type Pointer was written as OleVariant
  143.   Warning: IMdcCombo.ListWidth return parameter of type Pointer was written as OleVariant
  144.   Warning: IMdcCombo.TextColumn return parameter of type Pointer was written as OleVariant
  145.   Warning: IMdcCombo.TopIndex return parameter of type Pointer was written as OleVariant
  146.   Warning: IMdcCombo.Value return parameter of type Pointer was written as OleVariant
  147.   Warning: IMdcCheckBox.Value return parameter of type Pointer was written as OleVariant
  148.   Warning: IMdcCheckBox.Value return parameter of type Pointer was written as OleVariant
  149.   Hint: Class is not registered.  Ambient properties cannot be determined.
  150.   Warning: IMdcCheckBox.Value return parameter of type Pointer was written as OleVariant
  151.   Warning: IMdcCheckBox.Value return parameter of type Pointer was written as OleVariant
  152.   Warning: IMdcCheckBox.Value return parameter of type Pointer was written as OleVariant
  153.   Hint: Class is not registered.  Ambient properties cannot be determined.
  154.   Warning: IMdcCheckBox.Value return parameter of type Pointer was written as OleVariant
  155.   Warning: IMdcCheckBox.Value return parameter of type Pointer was written as OleVariant
  156.   Warning: IMdcCheckBox.Value return parameter of type Pointer was written as OleVariant
  157.   Hint: Class is not registered.  Ambient properties cannot be determined.
  158.   Warning: IMdcCheckBox.Value return parameter of type Pointer was written as OleVariant
  159.   Hint: Class is not registered.  Ambient properties cannot be determined.
  160.   Hint: Class is not registered.  Ambient properties cannot be determined.
  161.   Hint: Class is not registered.  Ambient properties cannot be determined.
  162.   Hint: Class is not registered.  Ambient properties cannot be determined.
  163.   Hint: Class is not registered.  Ambient properties cannot be determined.
  164.   Hint: Class is not registered.  Ambient properties cannot be determined.
  165.   Hint: Class is not registered.  Ambient properties cannot be determined.
  166.   Hint: Class is not registered.  Ambient properties cannot be determined.
  167.   Hint: Class is not registered.  Ambient properties cannot be determined.
  168.   Hint: Class is not registered.  Ambient properties cannot be determined.
  169.   Hint: Class is not registered.  Ambient properties cannot be determined.
  170.   Hint: Class is not registered.  Ambient properties cannot be determined.
  171.   Warning: IWHTMLSelect.Values return parameter of type Pointer was written as OleVariant
  172.   Warning: IWHTMLSelect.Values return parameter of type Pointer was written as OleVariant
  173.   Warning: IWHTMLSelect.DisplayValues return parameter of type Pointer was written as OleVariant
  174.   Warning: IWHTMLSelect.DisplayValues return parameter of type Pointer was written as OleVariant
  175.   Hint: Class is not registered.  Ambient properties cannot be determined.
  176.   Warning: IWHTMLSelect.Values return parameter of type Pointer was written as OleVariant
  177.   Warning: IWHTMLSelect.DisplayValues return parameter of type Pointer was written as OleVariant
  178.   Hint: Class is not registered.  Ambient properties cannot be determined.
  179.   Hint: Class is not registered.  Ambient properties cannot be determined.
  180.   Warning: IMdcText.Value return parameter of type Pointer was written as OleVariant
  181.   Warning: IMdcText.Value return parameter of type Pointer was written as OleVariant
  182.   Warning: IMdcList.BoundColumn return parameter of type Pointer was written as OleVariant
  183.   Warning: IMdcList.BoundColumn return parameter of type Pointer was written as OleVariant
  184.   Warning: IMdcList.ListIndex return parameter of type Pointer was written as OleVariant
  185.   Warning: IMdcList.ListIndex return parameter of type Pointer was written as OleVariant
  186.   Warning: IMdcList.ListWidth return parameter of type Pointer was written as OleVariant
  187.   Warning: IMdcList.ListWidth return parameter of type Pointer was written as OleVariant
  188.   Warning: IMdcList.TextColumn return parameter of type Pointer was written as OleVariant
  189.   Warning: IMdcList.TextColumn return parameter of type Pointer was written as OleVariant
  190.   Warning: IMdcList.TopIndex return parameter of type Pointer was written as OleVariant
  191.   Warning: IMdcList.TopIndex return parameter of type Pointer was written as OleVariant
  192.   Warning: IMdcList.Value return parameter of type Pointer was written as OleVariant
  193.   Warning: IMdcList.Value return parameter of type Pointer was written as OleVariant
  194.   Warning: IMdcCombo.BoundColumn return parameter of type Pointer was written as OleVariant
  195.   Warning: IMdcCombo.BoundColumn return parameter of type Pointer was written as OleVariant
  196.   Warning: IMdcCombo.ListIndex return parameter of type Pointer was written as OleVariant
  197.   Warning: IMdcCombo.ListIndex return parameter of type Pointer was written as OleVariant
  198.   Warning: IMdcCombo.ListWidth return parameter of type Pointer was written as OleVariant
  199.   Warning: IMdcCombo.ListWidth return parameter of type Pointer was written as OleVariant
  200.   Warning: IMdcCombo.TextColumn return parameter of type Pointer was written as OleVariant
  201.   Warning: IMdcCombo.TextColumn return parameter of type Pointer was written as OleVariant
  202.   Warning: IMdcCombo.TopIndex return parameter of type Pointer was written as OleVariant
  203.   Warning: IMdcCombo.TopIndex return parameter of type Pointer was written as OleVariant
  204.   Warning: IMdcCombo.Value return parameter of type Pointer was written as OleVariant
  205.   Warning: IMdcCombo.Value return parameter of type Pointer was written as OleVariant
  206.   Warning: IMdcCheckBox.Value return parameter of type Pointer was written as OleVariant
  207.   Warning: IMdcCheckBox.Value return parameter of type Pointer was written as OleVariant
  208.   Warning: IMdcCheckBox.Value return parameter of type Pointer was written as OleVariant
  209.   Warning: IMdcCheckBox.Value return parameter of type Pointer was written as OleVariant
  210.   Warning: IMdcCheckBox.Value return parameter of type Pointer was written as OleVariant
  211.   Warning: IMdcCheckBox.Value return parameter of type Pointer was written as OleVariant
  212.   Warning: IWHTMLSelect.Values return parameter of type Pointer was written as OleVariant
  213.   Warning: IWHTMLSelect.Values return parameter of type Pointer was written as OleVariant
  214.   Warning: IWHTMLSelect.DisplayValues return parameter of type Pointer was written as OleVariant
  215.   Warning: IWHTMLSelect.DisplayValues return parameter of type Pointer was written as OleVariant
  216.  }
  217.  
  218. interface
  219.  
  220. uses Windows, ActiveX, Classes, Graphics, OleCtrls, StdVCL;
  221.  
  222. const
  223.   LIBID_MSForms: TGUID = '{0D452EE1-E08F-101A-852E-02608C4D0BB4}';
  224.  
  225. const
  226.  
  227. { fmDropEffect }
  228.  
  229.   fmDropEffectNone = 0;
  230.   fmDropEffectCopy = 1;
  231.   fmDropEffectMove = 2;
  232.   fmDropEffectCopyOrMove = 3;
  233.  
  234. { fmAction }
  235.  
  236.   fmActionCut = 0;
  237.   fmActionCopy = 1;
  238.   fmActionPaste = 2;
  239.   fmActionDragDrop = 3;
  240.  
  241. { fmMode }
  242.  
  243.   fmModeInherit = -2;
  244.   fmModeOn = -1;
  245.   fmModeOff = 0;
  246.  
  247. { fmMousePointer }
  248.  
  249.   fmMousePointerDefault = 0;
  250.   fmMousePointerArrow = 1;
  251.   fmMousePointerCross = 2;
  252.   fmMousePointerIBeam = 3;
  253.   fmMousePointerSizeNESW = 6;
  254.   fmMousePointerSizeNS = 7;
  255.   fmMousePointerSizeNWSE = 8;
  256.   fmMousePointerSizeWE = 9;
  257.   fmMousePointerUpArrow = 10;
  258.   fmMousePointerHourGlass = 11;
  259.   fmMousePointerNoDrop = 12;
  260.   fmMousePointerAppStarting = 13;
  261.   fmMousePointerHelp = 14;
  262.   fmMousePointerSizeAll = 15;
  263.   fmMousePointerCustom = 99;
  264.  
  265. { fmScrollBars }
  266.  
  267.   fmScrollBarsNone = 0;
  268.   fmScrollBarsHorizontal = 1;
  269.   fmScrollBarsVertical = 2;
  270.   fmScrollBarsBoth = 3;
  271.  
  272. { fmScrollAction }
  273.  
  274.   fmScrollActionNoChange = 0;
  275.   fmScrollActionLineUp = 1;
  276.   fmScrollActionLineDown = 2;
  277.   fmScrollActionPageUp = 3;
  278.   fmScrollActionPageDown = 4;
  279.   fmScrollActionBegin = 5;
  280.   fmScrollActionEnd = 6;
  281.   _fmScrollActionAbsoluteChange = 7;
  282.   fmScrollActionPropertyChange = 8;
  283.   fmScrollActionControlRequest = 9;
  284.   fmScrollActionFocusRequest = 10;
  285.  
  286. { fmCycle }
  287.  
  288.   fmCycleAllForms = 0;
  289.   fmCycleCurrentForm = 2;
  290.  
  291. { fmZOrder }
  292.  
  293.   fmZOrderFront = 0;
  294.   fmZOrderBack = 1;
  295.  
  296. { fmBorderStyle }
  297.  
  298.   fmBorderStyleNone = 0;
  299.   fmBorderStyleSingle = 1;
  300.  
  301. { fmTextAlign }
  302.  
  303.   fmTextAlignLeft = 1;
  304.   fmTextAlignCenter = 2;
  305.   fmTextAlignRight = 3;
  306.  
  307. { fmAlignment }
  308.  
  309.   fmAlignmentLeft = 0;
  310.   fmAlignmentRight = 1;
  311.  
  312. { fmBorders }
  313.  
  314.   fmBordersNone = 0;
  315.   fmBordersBox = 1;
  316.   fmBordersLeft = 2;
  317.   fmBordersTop = 3;
  318.  
  319. { fmBackStyle }
  320.  
  321.   fmBackStyleTransparent = 0;
  322.   fmBackStyleOpaque = 1;
  323.  
  324. { fmButtonStyle }
  325.  
  326.   fmButtonStylePushButton = 0;
  327.   fmButtonStyleToggleButton = 1;
  328.  
  329. { fmPicPosition }
  330.  
  331.   fmPicPositionCenter = 0;
  332.   fmPicPositionTopLeft = 1;
  333.   fmPicPositionTopCenter = 2;
  334.   fmPicPositionTopRight = 3;
  335.   fmPicPositionCenterLeft = 4;
  336.   fmPicPositionCenterRight = 5;
  337.   fmPicPositionBottomLeft = 6;
  338.   fmPicPositionBottomCenter = 7;
  339.   fmPicPositionBottomRight = 8;
  340.  
  341. { fmVerticalScrollBarSide }
  342.  
  343.   fmVerticalScrollBarSideRight = 0;
  344.   fmVerticalScrollBarSideLeft = 1;
  345.  
  346. { fmLayoutEffect }
  347.  
  348.   fmLayoutEffectNone = 0;
  349.   fmLayoutEffectInitiate = 1;
  350.   _fmLayoutEffectRespond = 2;
  351.  
  352. { fmSpecialEffect }
  353.  
  354.   fmSpecialEffectFlat = 0;
  355.   fmSpecialEffectRaised = 1;
  356.   fmSpecialEffectSunken = 2;
  357.   fmSpecialEffectEtched = 3;
  358.   fmSpecialEffectBump = 6;
  359.  
  360. { fmDragState }
  361.  
  362.   fmDragStateEnter = 0;
  363.   fmDragStateLeave = 1;
  364.   fmDragStateOver = 2;
  365.  
  366. { fmPictureSizeMode }
  367.  
  368.   fmPictureSizeModeClip = 0;
  369.   fmPictureSizeModeStretch = 1;
  370.   fmPictureSizeModeZoom = 3;
  371.  
  372. { fmPictureAlignment }
  373.  
  374.   fmPictureAlignmentTopLeft = 0;
  375.   fmPictureAlignmentTopRight = 1;
  376.   fmPictureAlignmentCenter = 2;
  377.   fmPictureAlignmentBottomLeft = 3;
  378.   fmPictureAlignmentBottomRight = 4;
  379.  
  380. { fmButtonEffect }
  381.  
  382.   fmButtonEffectFlat = 0;
  383.   fmButtonEffectSunken = 2;
  384.  
  385. { fmOrientation }
  386.  
  387.   fmOrientationAuto = -1;
  388.   fmOrientationVertical = 0;
  389.   fmOrientationHorizontal = 1;
  390.  
  391. { fmSnapPoint }
  392.  
  393.   fmSnapPointTopLeft = 0;
  394.   fmSnapPointTopCenter = 1;
  395.   fmSnapPointTopRight = 2;
  396.   fmSnapPointCenterLeft = 3;
  397.   fmSnapPointCenter = 4;
  398.   fmSnapPointCenterRight = 5;
  399.   fmSnapPointBottomLeft = 6;
  400.   fmSnapPointBottomCenter = 7;
  401.   fmSnapPointBottomRight = 8;
  402.  
  403. { fmPicturePosition }
  404.  
  405.   fmPicturePositionLeftTop = 0;
  406.   fmPicturePositionLeftCenter = 1;
  407.   fmPicturePositionLeftBottom = 2;
  408.   fmPicturePositionRightTop = 3;
  409.   fmPicturePositionRightCenter = 4;
  410.   fmPicturePositionRightBottom = 5;
  411.   fmPicturePositionAboveLeft = 6;
  412.   fmPicturePositionAboveCenter = 7;
  413.   fmPicturePositionAboveRight = 8;
  414.   fmPicturePositionBelowLeft = 9;
  415.   fmPicturePositionBelowCenter = 10;
  416.   fmPicturePositionBelowRight = 11;
  417.   fmPicturePositionCenter = 12;
  418.  
  419. { fmDisplayStyle }
  420.  
  421.   fmDisplayStyleText = 1;
  422.   fmDisplayStyleList = 2;
  423.   fmDisplayStyleCombo = 3;
  424.   fmDisplayStyleCheckBox = 4;
  425.   fmDisplayStyleOptionButton = 5;
  426.   fmDisplayStyleToggle = 6;
  427.   fmDisplayStyleDropList = 7;
  428.  
  429. { fmShowListWhen }
  430.  
  431.   fmShowListWhenNever = 0;
  432.   fmShowListWhenButton = 1;
  433.   fmShowListWhenFocus = 2;
  434.   fmShowListWhenAlways = 3;
  435.  
  436. { fmShowDropButtonWhen }
  437.  
  438.   fmShowDropButtonWhenNever = 0;
  439.   fmShowDropButtonWhenFocus = 1;
  440.   fmShowDropButtonWhenAlways = 2;
  441.  
  442. { fmMultiSelect }
  443.  
  444.   fmMultiSelectSingle = 0;
  445.   fmMultiSelectMulti = 1;
  446.   fmMultiSelectExtended = 2;
  447.  
  448. { fmListStyle }
  449.  
  450.   fmListStylePlain = 0;
  451.   fmListStyleOption = 1;
  452.  
  453. { fmEnterFieldBehavior }
  454.  
  455.   fmEnterFieldBehaviorSelectAll = 0;
  456.   fmEnterFieldBehaviorRecallSelection = 1;
  457.  
  458. { fmDragBehavior }
  459.  
  460.   fmDragBehaviorDisabled = 0;
  461.   fmDragBehaviorEnabled = 1;
  462.  
  463. { fmMatchEntry }
  464.  
  465.   fmMatchEntryFirstLetter = 0;
  466.   fmMatchEntryComplete = 1;
  467.   fmMatchEntryNone = 2;
  468.  
  469. { fmDropButtonStyle }
  470.  
  471.   fmDropButtonStylePlain = 0;
  472.   fmDropButtonStyleArrow = 1;
  473.   fmDropButtonStyleEllipsis = 2;
  474.   fmDropButtonStyleReduce = 3;
  475.  
  476. { fmStyle }
  477.  
  478.   fmStyleDropDownCombo = 0;
  479.   fmStyleDropDownList = 2;
  480.  
  481. { fmTabOrientation }
  482.  
  483.   fmTabOrientationTop = 0;
  484.   fmTabOrientationBottom = 1;
  485.   fmTabOrientationLeft = 2;
  486.   fmTabOrientationRight = 3;
  487.  
  488. { fmTabStyle }
  489.  
  490.   fmTabStyleTabs = 0;
  491.   fmTabStyleButtons = 1;
  492.   fmTabStyleNone = 2;
  493.  
  494. { fmIMEMode }
  495.  
  496.   fmIMEModeNoControl = 0;
  497.   fmIMEModeOn = 1;
  498.   fmIMEModeOff = 2;
  499.   fmIMEModeDisable = 3;
  500.   fmIMEModeHiragana = 4;
  501.   fmIMEModeKatakana = 5;
  502.   fmIMEModeKatakanaHalf = 6;
  503.   fmIMEModeAlphaFull = 7;
  504.   fmIMEModeAlpha = 8;
  505.   fmIMEModeHangulFull = 9;
  506.   fmIMEModeHangul = 10;
  507.   fmIMEModeHanziFull = 11;
  508.   fmIMEModeHanzi = 12;
  509.  
  510. { fmTransitionEffect }
  511.  
  512.   fmTransitionEffectNone = 0;
  513.   fmTransitionEffectCoverUp = 1;
  514.   fmTransitionEffectCoverRightUp = 2;
  515.   fmTransitionEffectCoverRight = 3;
  516.   fmTransitionEffectCoverRightDown = 4;
  517.   fmTransitionEffectCoverDown = 5;
  518.   fmTransitionEffectCoverLeftDown = 6;
  519.   fmTransitionEffectCoverLeft = 7;
  520.   fmTransitionEffectCoverLeftUp = 8;
  521.   fmTransitionEffectPushUp = 9;
  522.   fmTransitionEffectPushRight = 10;
  523.   fmTransitionEffectPushDown = 11;
  524.   fmTransitionEffectPushLeft = 12;
  525.  
  526. { fmListBoxStyles }
  527.  
  528.   _fmListBoxStylesNone = 0;
  529.   _fmListBoxStylesListBox = 1;
  530.   _fmListBoxStylesComboBox = 2;
  531.  
  532. { fmRepeatDirection }
  533.  
  534.   _fmRepeatDirectionHorizontal = 0;
  535.   _fmRepeatDirectionVertical = 1;
  536.  
  537. { fmEnAutoSize }
  538.  
  539.   _fmEnAutoSizeNone = 0;
  540.   _fmEnAutoSizeHorizontal = 1;
  541.   _fmEnAutoSizeVertical = 2;
  542.   _fmEnAutoSizeBoth = 3;
  543.  
  544. const
  545.  
  546. { Component class GUIDs }
  547.   Class_ReturnInteger: TGUID = '{82B02373-B5BC-11CF-810F-00A0C9030074}';
  548.   Class_ReturnBoolean: TGUID = '{82B02374-B5BC-11CF-810F-00A0C9030074}';
  549.   Class_ReturnString: TGUID = '{82B02375-B5BC-11CF-810F-00A0C9030074}';
  550.   Class_ReturnSingle: TGUID = '{8A683C92-BA84-11CF-8110-00A0C9030074}';
  551.   Class_ReturnEffect: TGUID = '{8A683C93-BA84-11CF-8110-00A0C9030074}';
  552.   Class_DataObject: TGUID = '{1C3B4210-F441-11CE-B9EA-00AA006B1A69}';
  553.   Class_Control: TGUID = '{909E0AE0-16DC-11CE-9E98-00AA00574A4F}';
  554.   Class_UserForm: TGUID = '{C62A69F0-16DC-11CE-9E98-00AA00574A4F}';
  555.   Class_Frame: TGUID = '{6E182020-F460-11CE-9BCD-00AA00608E01}';
  556.   Class_Label_: TGUID = '{978C9E23-D4B0-11CE-BF2D-00AA003F40D0}';
  557.   Class_CommandButton: TGUID = '{D7053240-CE69-11CD-A777-00DD01143C57}';
  558.   Class_TextBox: TGUID = '{8BD21D10-EC42-11CE-9E0D-00AA006002F3}';
  559.   Class_ListBox: TGUID = '{8BD21D20-EC42-11CE-9E0D-00AA006002F3}';
  560.   Class_ComboBox: TGUID = '{8BD21D30-EC42-11CE-9E0D-00AA006002F3}';
  561.   Class_CheckBox: TGUID = '{8BD21D40-EC42-11CE-9E0D-00AA006002F3}';
  562.   Class_OptionButton: TGUID = '{8BD21D50-EC42-11CE-9E0D-00AA006002F3}';
  563.   Class_ToggleButton: TGUID = '{8BD21D60-EC42-11CE-9E0D-00AA006002F3}';
  564.   Class_NewFont: TGUID = '{AFC20920-DA4E-11CE-B943-00AA006887B4}';
  565.   Class_ScrollBar: TGUID = '{DFD181E0-5E2F-11CE-A449-00AA004A803D}';
  566.   Class_TabStrip: TGUID = '{EAE50EB0-4A62-11CE-BED6-00AA00611080}';
  567.   Class_SpinButton: TGUID = '{79176FB0-B7F2-11CE-97EF-00AA006D2776}';
  568.   Class_Image: TGUID = '{4C599241-6926-101B-9992-00000B65C6F9}';
  569.   Class_HTMLSubmit: TGUID = '{5512D110-5CC6-11CF-8D67-00AA00BDCE1D}';
  570.   Class_HTMLImage: TGUID = '{5512D112-5CC6-11CF-8D67-00AA00BDCE1D}';
  571.   Class_HTMLReset: TGUID = '{5512D114-5CC6-11CF-8D67-00AA00BDCE1D}';
  572.   Class_HTMLCheckbox: TGUID = '{5512D116-5CC6-11CF-8D67-00AA00BDCE1D}';
  573.   Class_HTMLOption: TGUID = '{5512D118-5CC6-11CF-8D67-00AA00BDCE1D}';
  574.   Class_HTMLText: TGUID = '{5512D11A-5CC6-11CF-8D67-00AA00BDCE1D}';
  575.   Class_HTMLHidden: TGUID = '{5512D11C-5CC6-11CF-8D67-00AA00BDCE1D}';
  576.   Class_HTMLPassword: TGUID = '{5512D11E-5CC6-11CF-8D67-00AA00BDCE1D}';
  577.   Class_HTMLSelect: TGUID = '{5512D122-5CC6-11CF-8D67-00AA00BDCE1D}';
  578.   Class_HTMLTextArea: TGUID = '{5512D124-5CC6-11CF-8D67-00AA00BDCE1D}';
  579.   Class_MultiPage: TGUID = '{46E31370-3F7A-11CE-BED6-00AA00611080}';
  580.   Class_Page: TGUID = '{5CEF5610-713D-11CE-80C9-00AA00611080}';
  581.  
  582. type
  583.  
  584. { Forward declarations: Interfaces }
  585.   IFont = interface;
  586.   Font = dispinterface;
  587.   IDataAutoWrapper = interface;
  588.   IDataAutoWrapperDisp = dispinterface;
  589.   IReturnInteger = interface;
  590.   IReturnIntegerDisp = dispinterface;
  591.   IReturnBoolean = interface;
  592.   IReturnBooleanDisp = dispinterface;
  593.   IReturnString = interface;
  594.   IReturnStringDisp = dispinterface;
  595.   IReturnSingle = interface;
  596.   IReturnSingleDisp = dispinterface;
  597.   IReturnEffect = interface;
  598.   IReturnEffectDisp = dispinterface;
  599.   IControl = interface;
  600.   IControlDisp = dispinterface;
  601.   Controls = interface;
  602.   ControlsDisp = dispinterface;
  603.   IOptionFrame = interface;
  604.   IOptionFrameDisp = dispinterface;
  605.   _UserForm = interface;
  606.   _UserFormDisp = dispinterface;
  607.   ControlEvents = dispinterface;
  608.   FormEvents = dispinterface;
  609.   OptionFrameEvents = dispinterface;
  610.   ILabelControl = interface;
  611.   ILabelControlDisp = dispinterface;
  612.   ICommandButton = interface;
  613.   ICommandButtonDisp = dispinterface;
  614.   IMdcText = interface;
  615.   IMdcTextDisp = dispinterface;
  616.   IMdcList = interface;
  617.   IMdcListDisp = dispinterface;
  618.   IMdcCombo = interface;
  619.   IMdcComboDisp = dispinterface;
  620.   IMdcCheckBox = interface;
  621.   IMdcCheckBoxDisp = dispinterface;
  622.   IMdcOptionButton = interface;
  623.   IMdcOptionButtonDisp = dispinterface;
  624.   IMdcToggleButton = interface;
  625.   IMdcToggleButtonDisp = dispinterface;
  626.   IScrollbar = interface;
  627.   IScrollbarDisp = dispinterface;
  628.   Tab = interface;
  629.   TabDisp = dispinterface;
  630.   Tabs = interface;
  631.   TabsDisp = dispinterface;
  632.   ITabStrip = interface;
  633.   ITabStripDisp = dispinterface;
  634.   ISpinbutton = interface;
  635.   ISpinbuttonDisp = dispinterface;
  636.   IImage = interface;
  637.   IImageDisp = dispinterface;
  638.   IWHTMLSubmitButton = interface;
  639.   IWHTMLSubmitButtonDisp = dispinterface;
  640.   IWHTMLImage = interface;
  641.   IWHTMLImageDisp = dispinterface;
  642.   IWHTMLReset = interface;
  643.   IWHTMLResetDisp = dispinterface;
  644.   IWHTMLCheckbox = interface;
  645.   IWHTMLCheckboxDisp = dispinterface;
  646.   IWHTMLOption = interface;
  647.   IWHTMLOptionDisp = dispinterface;
  648.   IWHTMLText = interface;
  649.   IWHTMLTextDisp = dispinterface;
  650.   IWHTMLHidden = interface;
  651.   IWHTMLHiddenDisp = dispinterface;
  652.   IWHTMLPassword = interface;
  653.   IWHTMLPasswordDisp = dispinterface;
  654.   IWHTMLSelect = interface;
  655.   IWHTMLSelectDisp = dispinterface;
  656.   IWHTMLTextArea = interface;
  657.   IWHTMLTextAreaDisp = dispinterface;
  658.   LabelControlEvents = dispinterface;
  659.   CommandButtonEvents = dispinterface;
  660.   MdcTextEvents = dispinterface;
  661.   MdcListEvents = dispinterface;
  662.   MdcComboEvents = dispinterface;
  663.   MdcCheckBoxEvents = dispinterface;
  664.   MdcOptionButtonEvents = dispinterface;
  665.   MdcToggleButtonEvents = dispinterface;
  666.   ScrollbarEvents = dispinterface;
  667.   TabStripEvents = dispinterface;
  668.   SpinbuttonEvents = dispinterface;
  669.   ImageEvents = dispinterface;
  670.   WHTMLControlEvents = dispinterface;
  671.   WHTMLControlEvents1 = dispinterface;
  672.   WHTMLControlEvents2 = dispinterface;
  673.   WHTMLControlEvents3 = dispinterface;
  674.   WHTMLControlEvents4 = dispinterface;
  675.   WHTMLControlEvents5 = dispinterface;
  676.   WHTMLControlEvents6 = dispinterface;
  677.   WHTMLControlEvents7 = dispinterface;
  678.   WHTMLControlEvents9 = dispinterface;
  679.   WHTMLControlEvents10 = dispinterface;
  680.   IPage = interface;
  681.   IPageDisp = dispinterface;
  682.   Pages = interface;
  683.   PagesDisp = dispinterface;
  684.   IMultiPage = interface;
  685.   IMultiPageDisp = dispinterface;
  686.   MultiPageEvents = dispinterface;
  687.  
  688. { Forward declarations: CoClasses }
  689.   ReturnInteger = IReturnInteger;
  690.   ReturnBoolean = IReturnBoolean;
  691.   ReturnString = IReturnString;
  692.   ReturnSingle = IReturnSingle;
  693.   ReturnEffect = IReturnEffect;
  694.   DataObject = IDataAutoWrapper;
  695.   Control = IControl;
  696.   UserForm = _UserForm;
  697.   Frame = IOptionFrame;
  698.   Label_ = ILabelControl;
  699.   CommandButton = ICommandButton;
  700.   TextBox = IMdcText;
  701.   ListBox = IMdcList;
  702.   ComboBox = IMdcCombo;
  703.   CheckBox = IMdcCheckBox;
  704.   OptionButton = IMdcOptionButton;
  705.   ToggleButton = IMdcToggleButton;
  706.   NewFont = Font;
  707.   ScrollBar = IScrollbar;
  708.   TabStrip = ITabStrip;
  709.   SpinButton = ISpinbutton;
  710.   Image = IImage;
  711.   HTMLSubmit = IWHTMLSubmitButton;
  712.   HTMLImage = IWHTMLImage;
  713.   HTMLReset = IWHTMLReset;
  714.   HTMLCheckbox = IWHTMLCheckbox;
  715.   HTMLOption = IWHTMLOption;
  716.   HTMLText = IWHTMLText;
  717.   HTMLHidden = IWHTMLHidden;
  718.   HTMLPassword = IWHTMLPassword;
  719.   HTMLSelect = IWHTMLSelect;
  720.   HTMLTextArea = IWHTMLTextArea;
  721.   MultiPage = IMultiPage;
  722.   Page = IPage;
  723.  
  724. { Forward declarations: Enums }
  725.   fmDropEffect = TOleEnum;
  726.   fmAction = TOleEnum;
  727.   fmMode = TOleEnum;
  728.   fmMousePointer = TOleEnum;
  729.   fmScrollBars = TOleEnum;
  730.   fmScrollAction = TOleEnum;
  731.   fmCycle = TOleEnum;
  732.   fmZOrder = TOleEnum;
  733.   fmBorderStyle = TOleEnum;
  734.   fmTextAlign = TOleEnum;
  735.   fmAlignment = TOleEnum;
  736.   fmBorders = TOleEnum;
  737.   fmBackStyle = TOleEnum;
  738.   fmButtonStyle = TOleEnum;
  739.   fmPicPosition = TOleEnum;
  740.   fmVerticalScrollBarSide = TOleEnum;
  741.   fmLayoutEffect = TOleEnum;
  742.   fmSpecialEffect = TOleEnum;
  743.   fmDragState = TOleEnum;
  744.   fmPictureSizeMode = TOleEnum;
  745.   fmPictureAlignment = TOleEnum;
  746.   fmButtonEffect = TOleEnum;
  747.   fmOrientation = TOleEnum;
  748.   fmSnapPoint = TOleEnum;
  749.   fmPicturePosition = TOleEnum;
  750.   fmDisplayStyle = TOleEnum;
  751.   fmShowListWhen = TOleEnum;
  752.   fmShowDropButtonWhen = TOleEnum;
  753.   fmMultiSelect = TOleEnum;
  754.   fmListStyle = TOleEnum;
  755.   fmEnterFieldBehavior = TOleEnum;
  756.   fmDragBehavior = TOleEnum;
  757.   fmMatchEntry = TOleEnum;
  758.   fmDropButtonStyle = TOleEnum;
  759.   fmStyle = TOleEnum;
  760.   fmTabOrientation = TOleEnum;
  761.   fmTabStyle = TOleEnum;
  762.   fmIMEMode = TOleEnum;
  763.   fmTransitionEffect = TOleEnum;
  764.   fmListBoxStyles = TOleEnum;
  765.   fmRepeatDirection = TOleEnum;
  766.   fmEnAutoSize = TOleEnum;
  767.  
  768.   OLE_COLOR = Integer;
  769.  
  770.   OLE_HANDLE = Integer;
  771.  
  772.   OLE_OPTEXCLUSIVE = WordBool;
  773.  
  774.   PIROWSET = IUnknown;
  775.  
  776.   IFont = interface(IUnknown)
  777.     ['{BEF6E002-A874-101A-8BBA-00AA00300CAB}']
  778.     function Get_Name(out Retval: WideString): HResult; stdcall;
  779.     function Set_Name(const Value: WideString): HResult; stdcall;
  780.     function Get_Size(out Retval: Currency): HResult; stdcall;
  781.     function Set_Size(Value: Currency): HResult; stdcall;
  782.     function Get_Bold(out Retval: WordBool): HResult; stdcall;
  783.     function Set_Bold(Value: WordBool): HResult; stdcall;
  784.     function Get_Italic(out Retval: WordBool): HResult; stdcall;
  785.     function Set_Italic(Value: WordBool): HResult; stdcall;
  786.     function Get_Underline(out Retval: WordBool): HResult; stdcall;
  787.     function Set_Underline(Value: WordBool): HResult; stdcall;
  788.     function Get_Strikethrough(out Retval: WordBool): HResult; stdcall;
  789.     function Set_Strikethrough(Value: WordBool): HResult; stdcall;
  790.     function Get_Weight(out Retval: Smallint): HResult; stdcall;
  791.     function Set_Weight(Value: Smallint): HResult; stdcall;
  792.     function Get_Charset(out Retval: Smallint): HResult; stdcall;
  793.     function Set_Charset(Value: Smallint): HResult; stdcall;
  794.     function Get_hFont(out Retval: OLE_HANDLE): HResult; stdcall;
  795.     function Clone(out lplpfont: IFont): HResult; stdcall;
  796.     function IsEqual(const lpFontOther: IFont): HResult; stdcall;
  797.     function SetRatio(cyLogical, cyHimetric: Integer): HResult; stdcall;
  798.     function AddRefHfont(hFont: OLE_HANDLE): HResult; stdcall;
  799.     function ReleaseHfont(hFont: OLE_HANDLE): HResult; stdcall;
  800.   end;
  801.  
  802.   Font = dispinterface
  803.     ['{BEF6E003-A874-101A-8BBA-00AA00300CAB}']
  804.     property Name: WideString dispid 0;
  805.     property Size: Currency dispid 2;
  806.     property Bold: WordBool dispid 3;
  807.     property Italic: WordBool dispid 4;
  808.     property Underline: WordBool dispid 5;
  809.     property Strikethrough: WordBool dispid 6;
  810.     property Weight: Smallint dispid 7;
  811.     property Charset: Smallint dispid 8;
  812.   end;
  813.  
  814.   IDataAutoWrapper = interface(IDispatch)
  815.     ['{EC72F590-F375-11CE-B9E8-00AA006B1A69}']
  816.     procedure Clear; safecall;
  817.     function GetFormat(Format: OleVariant): WordBool; safecall;
  818.     function GetText(Format: OleVariant): WideString; safecall;
  819.     procedure SetText(const Text: WideString; Format: OleVariant); safecall;
  820.     procedure PutInClipboard; safecall;
  821.     procedure GetFromClipboard; safecall;
  822.     function StartDrag(OKEffect: OleVariant): fmDropEffect; safecall;
  823.   end;
  824.  
  825. { DispInterface declaration for Dual Interface IDataAutoWrapper }
  826.  
  827.   IDataAutoWrapperDisp = dispinterface
  828.     ['{EC72F590-F375-11CE-B9E8-00AA006B1A69}']
  829.     procedure Clear; dispid 1610743808;
  830.     function GetFormat(Format: OleVariant): WordBool; dispid 1610743809;
  831.     function GetText(Format: OleVariant): WideString; dispid 1610743810;
  832.     procedure SetText(const Text: WideString; Format: OleVariant); dispid 1610743811;
  833.     procedure PutInClipboard; dispid 1610743812;
  834.     procedure GetFromClipboard; dispid 1610743813;
  835.     function StartDrag(OKEffect: OleVariant): fmDropEffect; dispid 1610743814;
  836.   end;
  837.  
  838.   IReturnInteger = interface(IDispatch)
  839.     ['{82B02370-B5BC-11CF-810F-00A0C9030074}']
  840.     procedure Set_Value(Value: SYSINT); safecall;
  841.     function Get_Value: SYSINT; safecall;
  842.     property Value: SYSINT read Get_Value write Set_Value;
  843.   end;
  844.  
  845. { DispInterface declaration for Dual Interface IReturnInteger }
  846.  
  847.   IReturnIntegerDisp = dispinterface
  848.     ['{82B02370-B5BC-11CF-810F-00A0C9030074}']
  849.     property Value: SYSINT dispid 0;
  850.   end;
  851.  
  852.   IReturnBoolean = interface(IDispatch)
  853.     ['{82B02371-B5BC-11CF-810F-00A0C9030074}']
  854.     procedure Set_Value(Value: WordBool); safecall;
  855.     function Get_Value: WordBool; safecall;
  856.     property Value: WordBool read Get_Value write Set_Value;
  857.   end;
  858.  
  859. { DispInterface declaration for Dual Interface IReturnBoolean }
  860.  
  861.   IReturnBooleanDisp = dispinterface
  862.     ['{82B02371-B5BC-11CF-810F-00A0C9030074}']
  863.     property Value: WordBool dispid 0;
  864.   end;
  865.  
  866.   IReturnString = interface(IDispatch)
  867.     ['{82B02372-B5BC-11CF-810F-00A0C9030074}']
  868.     procedure Set_Value(const Value: WideString); safecall;
  869.     function Get_Value: WideString; safecall;
  870.     property Value: WideString read Get_Value write Set_Value;
  871.   end;
  872.  
  873. { DispInterface declaration for Dual Interface IReturnString }
  874.  
  875.   IReturnStringDisp = dispinterface
  876.     ['{82B02372-B5BC-11CF-810F-00A0C9030074}']
  877.     property Value: WideString dispid 0;
  878.   end;
  879.  
  880.   IReturnSingle = interface(IDispatch)
  881.     ['{8A683C90-BA84-11CF-8110-00A0C9030074}']
  882.     procedure Set_Value(Value: Single); safecall;
  883.     function Get_Value: Single; safecall;
  884.     property Value: Single read Get_Value write Set_Value;
  885.   end;
  886.  
  887. { DispInterface declaration for Dual Interface IReturnSingle }
  888.  
  889.   IReturnSingleDisp = dispinterface
  890.     ['{8A683C90-BA84-11CF-8110-00A0C9030074}']
  891.     property Value: Single dispid 0;
  892.   end;
  893.  
  894.   IReturnEffect = interface(IDispatch)
  895.     ['{8A683C91-BA84-11CF-8110-00A0C9030074}']
  896.     procedure Set_Value(Value: fmDropEffect); safecall;
  897.     function Get_Value: fmDropEffect; safecall;
  898.     property Value: fmDropEffect read Get_Value write Set_Value;
  899.   end;
  900.  
  901. { DispInterface declaration for Dual Interface IReturnEffect }
  902.  
  903.   IReturnEffectDisp = dispinterface
  904.     ['{8A683C91-BA84-11CF-8110-00A0C9030074}']
  905.     property Value: fmDropEffect dispid 0;
  906.   end;
  907.  
  908.   IControl = interface(IDispatch)
  909.     ['{04598FC6-866C-11CF-AB7C-00AA00C08FCF}']
  910.     procedure Set_Cancel(Value: WordBool); safecall;
  911.     function Get_Cancel: WordBool; safecall;
  912.     procedure Set_ControlSource(const Value: WideString); safecall;
  913.     function Get_ControlSource: WideString; safecall;
  914.     procedure Set_ControlTipText(const Value: WideString); safecall;
  915.     function Get_ControlTipText: WideString; safecall;
  916.     procedure Set_Default(Value: WordBool); safecall;
  917.     function Get_Default: WordBool; safecall;
  918.     procedure _SetHeight(Height: Integer); safecall;
  919.     procedure _GetHeight(out Height: Integer); safecall;
  920.     procedure Set_Height(Value: Single); safecall;
  921.     function Get_Height: Single; safecall;
  922.     procedure Set_HelpContextID(Value: Integer); safecall;
  923.     function Get_HelpContextID: Integer; safecall;
  924.     procedure Set_InSelection(Value: WordBool); safecall;
  925.     function Get_InSelection: WordBool; safecall;
  926.     function Get_LayoutEffect: fmLayoutEffect; safecall;
  927.     procedure _SetLeft(Left: Integer); safecall;
  928.     procedure _GetLeft(out Left: Integer); safecall;
  929.     procedure Set_Left(Value: Single); safecall;
  930.     function Get_Left: Single; safecall;
  931.     procedure Set_Name(const Value: WideString); safecall;
  932.     function Get_Name: WideString; safecall;
  933.     procedure _GetOldHeight(out OldHeight: Integer); safecall;
  934.     function Get_OldHeight: Single; safecall;
  935.     procedure _GetOldLeft(out OldLeft: Integer); safecall;
  936.     function Get_OldLeft: Single; safecall;
  937.     procedure _GetOldTop(out OldTop: Integer); safecall;
  938.     function Get_OldTop: Single; safecall;
  939.     procedure _GetOldWidth(out OldWidth: Integer); safecall;
  940.     function Get_OldWidth: Single; safecall;
  941.     function Get_Object_: IDispatch; safecall;
  942.     function Get_Parent: IDispatch; safecall;
  943.     procedure Set_RowSource(const Value: WideString); safecall;
  944.     function Get_RowSource: WideString; safecall;
  945.     procedure Set_RowSourceType(Value: Smallint); safecall;
  946.     function Get_RowSourceType: Smallint; safecall;
  947.     procedure Set_TabIndex(Value: Smallint); safecall;
  948.     function Get_TabIndex: Smallint; safecall;
  949.     procedure Set_TabStop(Value: WordBool); safecall;
  950.     function Get_TabStop: WordBool; safecall;
  951.     procedure Set_Tag(const Value: WideString); safecall;
  952.     function Get_Tag: WideString; safecall;
  953.     procedure _SetTop(Top: Integer); safecall;
  954.     procedure _GetTop(out Top: Integer); safecall;
  955.     procedure Set_Top(Value: Single); safecall;
  956.     function Get_Top: Single; safecall;
  957.     procedure Set_BoundValue(Value: OleVariant); safecall;
  958.     function Get_BoundValue: OleVariant; safecall;
  959.     procedure Set_Visible(Value: WordBool); safecall;
  960.     function Get_Visible: WordBool; safecall;
  961.     procedure _SetWidth(Width: Integer); safecall;
  962.     procedure _GetWidth(out Width: Integer); safecall;
  963.     procedure Set_Width(Value: Single); safecall;
  964.     function Get_Width: Single; safecall;
  965.     procedure Move(Left, Top, Width, Height, Layout: OleVariant); safecall;
  966.     procedure ZOrder(zPosition: OleVariant); safecall;
  967.     procedure Select(SelectInGroup: WordBool); safecall;
  968.     procedure SetFocus; safecall;
  969.     function _GethWnd: SYSINT; safecall;
  970.     function _GetID: Integer; safecall;
  971.     procedure _Move(Left, Top, Width, Height: Integer); safecall;
  972.     procedure _ZOrder(zPosition: fmZOrder); safecall;
  973.     property Cancel: WordBool read Get_Cancel write Set_Cancel;
  974.     property ControlSource: WideString read Get_ControlSource write Set_ControlSource;
  975.     property ControlTipText: WideString read Get_ControlTipText write Set_ControlTipText;
  976.     property Default: WordBool read Get_Default write Set_Default;
  977.     property Height: Single read Get_Height write Set_Height;
  978.     property HelpContextID: Integer read Get_HelpContextID write Set_HelpContextID;
  979.     property InSelection: WordBool read Get_InSelection write Set_InSelection;
  980.     property LayoutEffect: fmLayoutEffect read Get_LayoutEffect;
  981.     property Left: Single read Get_Left write Set_Left;
  982.     property Name: WideString read Get_Name write Set_Name;
  983.     property OldHeight: Single read Get_OldHeight;
  984.     property OldLeft: Single read Get_OldLeft;
  985.     property OldTop: Single read Get_OldTop;
  986.     property OldWidth: Single read Get_OldWidth;
  987.     property Object_: IDispatch read Get_Object_;
  988.     property Parent: IDispatch read Get_Parent;
  989.     property RowSource: WideString read Get_RowSource write Set_RowSource;
  990.     property RowSourceType: Smallint read Get_RowSourceType write Set_RowSourceType;
  991.     property TabIndex: Smallint read Get_TabIndex write Set_TabIndex;
  992.     property TabStop: WordBool read Get_TabStop write Set_TabStop;
  993.     property Tag: WideString read Get_Tag write Set_Tag;
  994.     property Top: Single read Get_Top write Set_Top;
  995.     property BoundValue: OleVariant read Get_BoundValue write Set_BoundValue;
  996.     property Visible: WordBool read Get_Visible write Set_Visible;
  997.     property Width: Single read Get_Width write Set_Width;
  998.   end;
  999.  
  1000. { DispInterface declaration for Dual Interface IControl }
  1001.  
  1002.   IControlDisp = dispinterface
  1003.     ['{04598FC6-866C-11CF-AB7C-00AA00C08FCF}']
  1004.     property Cancel: WordBool dispid -2147418056;
  1005.     property ControlSource: WideString dispid -2147385343;
  1006.     property ControlTipText: WideString dispid -2147418043;
  1007.     property Default: WordBool dispid -2147418057;
  1008.     procedure _SetHeight(Height: Integer); dispid 1610743816;
  1009.     procedure _GetHeight(out Height: Integer); dispid 1610743817;
  1010.     property Height: Single dispid -2147418106;
  1011.     property HelpContextID: Integer dispid -2147418062;
  1012.     property InSelection: WordBool dispid -2147385341;
  1013.     property LayoutEffect: fmLayoutEffect readonly dispid -2147385340;
  1014.     procedure _SetLeft(Left: Integer); dispid 1610743825;
  1015.     procedure _GetLeft(out Left: Integer); dispid 1610743826;
  1016.     property Left: Single dispid -2147418109;
  1017.     property Name: WideString dispid -2147418112;
  1018.     procedure _GetOldHeight(out OldHeight: Integer); dispid 1610743831;
  1019.     property OldHeight: Single readonly dispid -2147385339;
  1020.     procedure _GetOldLeft(out OldLeft: Integer); dispid 1610743833;
  1021.     property OldLeft: Single readonly dispid -2147385338;
  1022.     procedure _GetOldTop(out OldTop: Integer); dispid 1610743835;
  1023.     property OldTop: Single readonly dispid -2147385337;
  1024.     procedure _GetOldWidth(out OldWidth: Integer); dispid 1610743837;
  1025.     property OldWidth: Single readonly dispid -2147385336;
  1026.     property Object_: IDispatch readonly dispid -2147385335;
  1027.     property Parent: IDispatch readonly dispid -2147418104;
  1028.     property RowSource: WideString dispid -2147385330;
  1029.     property RowSourceType: Smallint dispid -2147385329;
  1030.     property TabIndex: Smallint dispid -2147418097;
  1031.     property TabStop: WordBool dispid -2147418098;
  1032.     property Tag: WideString dispid -2147418101;
  1033.     procedure _SetTop(Top: Integer); dispid 1610743851;
  1034.     procedure _GetTop(out Top: Integer); dispid 1610743852;
  1035.     property Top: Single dispid -2147418108;
  1036.     property BoundValue: OleVariant dispid -2147385328;
  1037.     property Visible: WordBool dispid -2147418105;
  1038.     procedure _SetWidth(Width: Integer); dispid 1610743859;
  1039.     procedure _GetWidth(out Width: Integer); dispid 1610743860;
  1040.     property Width: Single dispid -2147418107;
  1041.     procedure Move(Left, Top, Width, Height, Layout: OleVariant); dispid -2147385088;
  1042.     procedure ZOrder(zPosition: OleVariant); dispid -2147385083;
  1043.     procedure Select(SelectInGroup: WordBool); dispid -2147385086;
  1044.     procedure SetFocus; dispid -2147385085;
  1045.     function _GethWnd: SYSINT; dispid 1610743867;
  1046.     function _GetID: Integer; dispid 1610743868;
  1047.     procedure _Move(Left, Top, Width, Height: Integer); dispid 1610743869;
  1048.     procedure _ZOrder(zPosition: fmZOrder); dispid 1610743870;
  1049.   end;
  1050.  
  1051.   Controls = interface(IDispatch)
  1052.     ['{04598FC7-866C-11CF-AB7C-00AA00C08FCF}']
  1053.     function Get_Count: Integer; safecall;
  1054.     function Get__NewEnum: IUnknown; safecall;
  1055.     function Item(varg: OleVariant): IDispatch; safecall;
  1056.     procedure Clear; safecall;
  1057.     procedure _Move(cx, cy: Integer); safecall;
  1058.     procedure SelectAll; safecall;
  1059.     function _AddByClass(var clsid: Integer): Control; safecall;
  1060.     procedure AlignToGrid; safecall;
  1061.     procedure BringForward; safecall;
  1062.     procedure BringToFront; safecall;
  1063.     procedure Copy; safecall;
  1064.     procedure Cut; safecall;
  1065.     function Enum: IUnknown; safecall;
  1066.     function _GetItemByIndex(lIndex: Integer): Control; safecall;
  1067.     function _GetItemByName(const pstr: WideString): Control; safecall;
  1068.     function _GetItemByID(ID: Integer): Control; safecall;
  1069.     procedure SendBackward; safecall;
  1070.     procedure SendToBack; safecall;
  1071.     procedure Move(cx, cy: Single); safecall;
  1072.     function Add(const bstrProgID: WideString; Name, Visible: OleVariant): Control; safecall;
  1073.     procedure Remove(varg: OleVariant); safecall;
  1074.     property Count: Integer read Get_Count;
  1075.     property _NewEnum: IUnknown read Get__NewEnum;
  1076.   end;
  1077.  
  1078. { DispInterface declaration for Dual Interface Controls }
  1079.  
  1080.   ControlsDisp = dispinterface
  1081.     ['{04598FC7-866C-11CF-AB7C-00AA00C08FCF}']
  1082.     property Count: Integer readonly dispid 60;
  1083.     property _NewEnum: IUnknown readonly dispid -4;
  1084.     function Item(varg: OleVariant): IDispatch; dispid 0;
  1085.     procedure Clear; dispid 62;
  1086.     procedure _Move(cx, cy: Integer); dispid 1610743812;
  1087.     procedure SelectAll; dispid 65;
  1088.     function _AddByClass(var clsid: Integer): Control; dispid 1610743814;
  1089.     procedure AlignToGrid; dispid 1610743815;
  1090.     procedure BringForward; dispid 1610743816;
  1091.     procedure BringToFront; dispid 1610743817;
  1092.     procedure Copy; dispid 1610743818;
  1093.     procedure Cut; dispid 1610743819;
  1094.     function Enum: IUnknown; dispid 1610743820;
  1095.     function _GetItemByIndex(lIndex: Integer): Control; dispid 1610743821;
  1096.     function _GetItemByName(const pstr: WideString): Control; dispid 1610743822;
  1097.     function _GetItemByID(ID: Integer): Control; dispid 1610743823;
  1098.     procedure SendBackward; dispid 1610743824;
  1099.     procedure SendToBack; dispid 1610743825;
  1100.     procedure Move(cx, cy: Single); dispid 63;
  1101.     function Add(const bstrProgID: WideString; Name, Visible: OleVariant): Control; dispid 66;
  1102.     procedure Remove(varg: OleVariant); dispid 67;
  1103.   end;
  1104.  
  1105.   IOptionFrame = interface(IDispatch)
  1106.     ['{29B86A70-F52E-11CE-9BCE-00AA00608E01}']
  1107.     function Get_ActiveControl: Control; safecall;
  1108.     procedure Set_BackColor(Value: TColor); safecall;
  1109.     function Get_BackColor: TColor; safecall;
  1110.     procedure Set_BorderColor(Value: TColor); safecall;
  1111.     function Get_BorderColor: TColor; safecall;
  1112.     procedure Set_BorderStyle(Value: fmBorderStyle); safecall;
  1113.     function Get_BorderStyle: fmBorderStyle; safecall;
  1114.     function Get_CanPaste: WordBool; safecall;
  1115.     function Get_CanRedo: WordBool; safecall;
  1116.     function Get_CanUndo: WordBool; safecall;
  1117.     procedure Set_Caption(const Value: WideString); safecall;
  1118.     function Get_Caption: WideString; safecall;
  1119.     function Get_Controls: Controls; safecall;
  1120.     procedure Set_Cycle(Value: fmCycle); safecall;
  1121.     function Get_Cycle: fmCycle; safecall;
  1122.     procedure Set_Enabled(Value: WordBool); safecall;
  1123.     function Get_Enabled: WordBool; safecall;
  1124.     procedure Set__Font_Reserved(const Value: Font); safecall;
  1125.     procedure Set_Font(var Value: Font); safecall;
  1126.     function Get_Font: Font; safecall;
  1127.     procedure Set_ForeColor(Value: TColor); safecall;
  1128.     function Get_ForeColor: TColor; safecall;
  1129.     procedure _GetInsideHeight(out InsideHeight: Integer); safecall;
  1130.     function Get_InsideHeight: Single; safecall;
  1131.     procedure _GetInsideWidth(out InsideWidth: Integer); safecall;
  1132.     function Get_InsideWidth: Single; safecall;
  1133.     procedure Set_KeepScrollBarsVisible(Value: fmScrollBars); safecall;
  1134.     function Get_KeepScrollBarsVisible: fmScrollBars; safecall;
  1135.     procedure _Set_MouseIcon(const Value: Picture); safecall;
  1136.     procedure Set_MouseIcon(var Value: Picture); safecall;
  1137.     function Get_MouseIcon: Picture; safecall;
  1138.     procedure Set_MousePointer(Value: fmMousePointer); safecall;
  1139.     function Get_MousePointer: fmMousePointer; safecall;
  1140.     procedure Set_PictureAlignment(Value: fmPictureAlignment); safecall;
  1141.     function Get_PictureAlignment: fmPictureAlignment; safecall;
  1142.     procedure _Set_Picture(const Value: Picture); safecall;
  1143.     procedure Set_Picture(var Value: Picture); safecall;
  1144.     function Get_Picture: Picture; safecall;
  1145.     procedure Set_PictureSizeMode(Value: fmPictureSizeMode); safecall;
  1146.     function Get_PictureSizeMode: fmPictureSizeMode; safecall;
  1147.     procedure Set_PictureTiling(Value: WordBool); safecall;
  1148.     function Get_PictureTiling: WordBool; safecall;
  1149.     procedure Set_ScrollBars(Value: fmScrollBars); safecall;
  1150.     function Get_ScrollBars: fmScrollBars; safecall;
  1151.     procedure _SetScrollHeight(ScrollHeight: Integer); safecall;
  1152.     procedure _GetScrollHeight(out ScrollHeight: Integer); safecall;
  1153.     procedure Set_ScrollHeight(Value: Single); safecall;
  1154.     function Get_ScrollHeight: Single; safecall;
  1155.     procedure _SetScrollLeft(ScrollLeft: Integer); safecall;
  1156.     procedure _GetScrollLeft(out ScrollLeft: Integer); safecall;
  1157.     procedure Set_ScrollLeft(Value: Single); safecall;
  1158.     function Get_ScrollLeft: Single; safecall;
  1159.     procedure _SetScrollTop(ScrollTop: Integer); safecall;
  1160.     procedure _GetScrollTop(out ScrollTop: Integer); safecall;
  1161.     procedure Set_ScrollTop(Value: Single); safecall;
  1162.     function Get_ScrollTop: Single; safecall;
  1163.     procedure _SetScrollWidth(ScrollWidth: Integer); safecall;
  1164.     procedure _GetScrollWidth(out ScrollWidth: Integer); safecall;
  1165.     procedure Set_ScrollWidth(Value: Single); safecall;
  1166.     function Get_ScrollWidth: Single; safecall;
  1167.     function Get_Selected: Controls; safecall;
  1168.     procedure Set_SpecialEffect(Value: fmSpecialEffect); safecall;
  1169.     function Get_SpecialEffect: fmSpecialEffect; safecall;
  1170.     procedure Set_VerticalScrollBarSide(Value: fmVerticalScrollBarSide); safecall;
  1171.     function Get_VerticalScrollBarSide: fmVerticalScrollBarSide; safecall;
  1172.     procedure Set_Zoom(Value: Smallint); safecall;
  1173.     function Get_Zoom: Smallint; safecall;
  1174.     procedure Copy; safecall;
  1175.     procedure Cut; safecall;
  1176.     procedure Paste; safecall;
  1177.     procedure RedoAction; safecall;
  1178.     procedure Repaint; safecall;
  1179.     procedure Scroll(xAction, yAction: OleVariant); safecall;
  1180.     procedure SetDefaultTabOrder; safecall;
  1181.     procedure UndoAction; safecall;
  1182.     procedure Set_DesignMode(Value: fmMode); safecall;
  1183.     function Get_DesignMode: fmMode; safecall;
  1184.     procedure Set_ShowToolbox(Value: fmMode); safecall;
  1185.     function Get_ShowToolbox: fmMode; safecall;
  1186.     procedure Set_ShowGridDots(Value: fmMode); safecall;
  1187.     function Get_ShowGridDots: fmMode; safecall;
  1188.     procedure Set_SnapToGrid(Value: fmMode); safecall;
  1189.     function Get_SnapToGrid: fmMode; safecall;
  1190.     procedure Set_GridX(Value: Single); safecall;
  1191.     function Get_GridX: Single; safecall;
  1192.     procedure _SetGridX(GridX: Integer); safecall;
  1193.     procedure _GetGridX(out GridX: Integer); safecall;
  1194.     procedure Set_GridY(Value: Single); safecall;
  1195.     function Get_GridY: Single; safecall;
  1196.     procedure _SetGridY(GridY: Integer); safecall;
  1197.     procedure _GetGridY(out GridY: Integer); safecall;
  1198.     property ActiveControl: Control read Get_ActiveControl;
  1199.     property BackColor: TColor read Get_BackColor write Set_BackColor;
  1200.     property BorderColor: TColor read Get_BorderColor write Set_BorderColor;
  1201.     property BorderStyle: fmBorderStyle read Get_BorderStyle write Set_BorderStyle;
  1202.     property CanPaste: WordBool read Get_CanPaste;
  1203.     property CanRedo: WordBool read Get_CanRedo;
  1204.     property CanUndo: WordBool read Get_CanUndo;
  1205.     property Caption: WideString read Get_Caption write Set_Caption;
  1206.     property Controls: Controls read Get_Controls;
  1207.     property Cycle: fmCycle read Get_Cycle write Set_Cycle;
  1208.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  1209.     property _Font_Reserved: Font write Set__Font_Reserved;
  1210.     property Font: Font read Get_Font write Set_Font;
  1211.     property ForeColor: TColor read Get_ForeColor write Set_ForeColor;
  1212.     property InsideHeight: Single read Get_InsideHeight;
  1213.     property InsideWidth: Single read Get_InsideWidth;
  1214.     property KeepScrollBarsVisible: fmScrollBars read Get_KeepScrollBarsVisible write Set_KeepScrollBarsVisible;
  1215.     property MouseIcon: Picture read Get_MouseIcon write Set_MouseIcon;
  1216.     property MousePointer: fmMousePointer read Get_MousePointer write Set_MousePointer;
  1217.     property PictureAlignment: fmPictureAlignment read Get_PictureAlignment write Set_PictureAlignment;
  1218.     property Picture: Picture read Get_Picture write Set_Picture;
  1219.     property PictureSizeMode: fmPictureSizeMode read Get_PictureSizeMode write Set_PictureSizeMode;
  1220.     property PictureTiling: WordBool read Get_PictureTiling write Set_PictureTiling;
  1221.     property ScrollBars: fmScrollBars read Get_ScrollBars write Set_ScrollBars;
  1222.     property ScrollHeight: Single read Get_ScrollHeight write Set_ScrollHeight;
  1223.     property ScrollLeft: Single read Get_ScrollLeft write Set_ScrollLeft;
  1224.     property ScrollTop: Single read Get_ScrollTop write Set_ScrollTop;
  1225.     property ScrollWidth: Single read Get_ScrollWidth write Set_ScrollWidth;
  1226.     property Selected: Controls read Get_Selected;
  1227.     property SpecialEffect: fmSpecialEffect read Get_SpecialEffect write Set_SpecialEffect;
  1228.     property VerticalScrollBarSide: fmVerticalScrollBarSide read Get_VerticalScrollBarSide write Set_VerticalScrollBarSide;
  1229.     property Zoom: Smallint read Get_Zoom write Set_Zoom;
  1230.     property DesignMode: fmMode read Get_DesignMode write Set_DesignMode;
  1231.     property ShowToolbox: fmMode read Get_ShowToolbox write Set_ShowToolbox;
  1232.     property ShowGridDots: fmMode read Get_ShowGridDots write Set_ShowGridDots;
  1233.     property SnapToGrid: fmMode read Get_SnapToGrid write Set_SnapToGrid;
  1234.     property GridX: Single read Get_GridX write Set_GridX;
  1235.     property GridY: Single read Get_GridY write Set_GridY;
  1236.   end;
  1237.  
  1238. { DispInterface declaration for Dual Interface IOptionFrame }
  1239.  
  1240.   IOptionFrameDisp = dispinterface
  1241.     ['{29B86A70-F52E-11CE-9BCE-00AA00608E01}']
  1242.     property ActiveControl: Control readonly dispid 256;
  1243.     property BackColor: TColor dispid -501;
  1244.     property BorderColor: TColor dispid -503;
  1245.     property BorderStyle: fmBorderStyle dispid -504;
  1246.     property CanPaste: WordBool readonly dispid 257;
  1247.     property CanRedo: WordBool readonly dispid 258;
  1248.     property CanUndo: WordBool readonly dispid 259;
  1249.     property Caption: WideString dispid -518;
  1250.     property Controls: Controls readonly dispid 0;
  1251.     property Cycle: fmCycle dispid 260;
  1252.     property Enabled: WordBool dispid -514;
  1253.     property _Font_Reserved: Font writeonly dispid 2147483135;
  1254.     property Font: Font dispid -512;
  1255.     property ForeColor: TColor dispid -513;
  1256.     procedure _GetInsideHeight(out InsideHeight: Integer); dispid 1610743830;
  1257.     property InsideHeight: Single readonly dispid 262;
  1258.     procedure _GetInsideWidth(out InsideWidth: Integer); dispid 1610743832;
  1259.     property InsideWidth: Single readonly dispid 263;
  1260.     property KeepScrollBarsVisible: fmScrollBars dispid 264;
  1261.     property MouseIcon: Picture dispid -522;
  1262.     property MousePointer: fmMousePointer dispid -521;
  1263.     property PictureAlignment: fmPictureAlignment dispid 26;
  1264.     property Picture: Picture dispid -523;
  1265.     property PictureSizeMode: fmPictureSizeMode dispid 27;
  1266.     property PictureTiling: WordBool dispid 28;
  1267.     property ScrollBars: fmScrollBars dispid 265;
  1268.     procedure _SetScrollHeight(ScrollHeight: Integer); dispid 1610743852;
  1269.     procedure _GetScrollHeight(out ScrollHeight: Integer); dispid 1610743853;
  1270.     property ScrollHeight: Single dispid 266;
  1271.     procedure _SetScrollLeft(ScrollLeft: Integer); dispid 1610743856;
  1272.     procedure _GetScrollLeft(out ScrollLeft: Integer); dispid 1610743857;
  1273.     property ScrollLeft: Single dispid 267;
  1274.     procedure _SetScrollTop(ScrollTop: Integer); dispid 1610743860;
  1275.     procedure _GetScrollTop(out ScrollTop: Integer); dispid 1610743861;
  1276.     property ScrollTop: Single dispid 268;
  1277.     procedure _SetScrollWidth(ScrollWidth: Integer); dispid 1610743864;
  1278.     procedure _GetScrollWidth(out ScrollWidth: Integer); dispid 1610743865;
  1279.     property ScrollWidth: Single dispid 269;
  1280.     property Selected: Controls readonly dispid 270;
  1281.     property SpecialEffect: fmSpecialEffect dispid 12;
  1282.     property VerticalScrollBarSide: fmVerticalScrollBarSide dispid 271;
  1283.     property Zoom: Smallint dispid 272;
  1284.     procedure Copy; dispid 512;
  1285.     procedure Cut; dispid 513;
  1286.     procedure Paste; dispid 514;
  1287.     procedure RedoAction; dispid 515;
  1288.     procedure Repaint; dispid 516;
  1289.     procedure Scroll(xAction, yAction: OleVariant); dispid 517;
  1290.     procedure SetDefaultTabOrder; dispid 518;
  1291.     procedure UndoAction; dispid 519;
  1292.     property DesignMode: fmMode dispid 384;
  1293.     property ShowToolbox: fmMode dispid 385;
  1294.     property ShowGridDots: fmMode dispid 386;
  1295.     property SnapToGrid: fmMode dispid 387;
  1296.     property GridX: Single dispid 388;
  1297.     procedure _SetGridX(GridX: Integer); dispid 1610743893;
  1298.     procedure _GetGridX(out GridX: Integer); dispid 1610743894;
  1299.     property GridY: Single dispid 389;
  1300.     procedure _SetGridY(GridY: Integer); dispid 1610743897;
  1301.     procedure _GetGridY(out GridY: Integer); dispid 1610743898;
  1302.   end;
  1303.  
  1304.   _UserForm = interface(IOptionFrame)
  1305.     ['{04598FC8-866C-11CF-AB7C-00AA00C08FCF}']
  1306.     procedure Set_DrawBuffer(Value: Integer); safecall;
  1307.     function Get_DrawBuffer: Integer; safecall;
  1308.     property DrawBuffer: Integer read Get_DrawBuffer write Set_DrawBuffer;
  1309.   end;
  1310.  
  1311. { DispInterface declaration for Dual Interface _UserForm }
  1312.  
  1313.   _UserFormDisp = dispinterface
  1314.     ['{04598FC8-866C-11CF-AB7C-00AA00C08FCF}']
  1315.     property ActiveControl: Control readonly dispid 256;
  1316.     property BackColor: TColor dispid -501;
  1317.     property BorderColor: TColor dispid -503;
  1318.     property BorderStyle: fmBorderStyle dispid -504;
  1319.     property CanPaste: WordBool readonly dispid 257;
  1320.     property CanRedo: WordBool readonly dispid 258;
  1321.     property CanUndo: WordBool readonly dispid 259;
  1322.     property Caption: WideString dispid -518;
  1323.     property Controls: Controls readonly dispid 0;
  1324.     property Cycle: fmCycle dispid 260;
  1325.     property Enabled: WordBool dispid -514;
  1326.     property _Font_Reserved: Font writeonly dispid 2147483135;
  1327.     property Font: Font dispid -512;
  1328.     property ForeColor: TColor dispid -513;
  1329.     procedure _GetInsideHeight(out InsideHeight: Integer); dispid 1610743830;
  1330.     property InsideHeight: Single readonly dispid 262;
  1331.     procedure _GetInsideWidth(out InsideWidth: Integer); dispid 1610743832;
  1332.     property InsideWidth: Single readonly dispid 263;
  1333.     property KeepScrollBarsVisible: fmScrollBars dispid 264;
  1334.     property MouseIcon: Picture dispid -522;
  1335.     property MousePointer: fmMousePointer dispid -521;
  1336.     property PictureAlignment: fmPictureAlignment dispid 26;
  1337.     property Picture: Picture dispid -523;
  1338.     property PictureSizeMode: fmPictureSizeMode dispid 27;
  1339.     property PictureTiling: WordBool dispid 28;
  1340.     property ScrollBars: fmScrollBars dispid 265;
  1341.     procedure _SetScrollHeight(ScrollHeight: Integer); dispid 1610743852;
  1342.     procedure _GetScrollHeight(out ScrollHeight: Integer); dispid 1610743853;
  1343.     property ScrollHeight: Single dispid 266;
  1344.     procedure _SetScrollLeft(ScrollLeft: Integer); dispid 1610743856;
  1345.     procedure _GetScrollLeft(out ScrollLeft: Integer); dispid 1610743857;
  1346.     property ScrollLeft: Single dispid 267;
  1347.     procedure _SetScrollTop(ScrollTop: Integer); dispid 1610743860;
  1348.     procedure _GetScrollTop(out ScrollTop: Integer); dispid 1610743861;
  1349.     property ScrollTop: Single dispid 268;
  1350.     procedure _SetScrollWidth(ScrollWidth: Integer); dispid 1610743864;
  1351.     procedure _GetScrollWidth(out ScrollWidth: Integer); dispid 1610743865;
  1352.     property ScrollWidth: Single dispid 269;
  1353.     property Selected: Controls readonly dispid 270;
  1354.     property SpecialEffect: fmSpecialEffect dispid 12;
  1355.     property VerticalScrollBarSide: fmVerticalScrollBarSide dispid 271;
  1356.     property Zoom: Smallint dispid 272;
  1357.     procedure Copy; dispid 512;
  1358.     procedure Cut; dispid 513;
  1359.     procedure Paste; dispid 514;
  1360.     procedure RedoAction; dispid 515;
  1361.     procedure Repaint; dispid 516;
  1362.     procedure Scroll(xAction, yAction: OleVariant); dispid 517;
  1363.     procedure SetDefaultTabOrder; dispid 518;
  1364.     procedure UndoAction; dispid 519;
  1365.     property DesignMode: fmMode dispid 384;
  1366.     property ShowToolbox: fmMode dispid 385;
  1367.     property ShowGridDots: fmMode dispid 386;
  1368.     property SnapToGrid: fmMode dispid 387;
  1369.     property GridX: Single dispid 388;
  1370.     procedure _SetGridX(GridX: Integer); dispid 1610743893;
  1371.     procedure _GetGridX(out GridX: Integer); dispid 1610743894;
  1372.     property GridY: Single dispid 389;
  1373.     procedure _SetGridY(GridY: Integer); dispid 1610743897;
  1374.     procedure _GetGridY(out GridY: Integer); dispid 1610743898;
  1375.     property DrawBuffer: Integer dispid 395;
  1376.   end;
  1377.  
  1378.   ControlEvents = dispinterface
  1379.     ['{9A4BBF53-4E46-101B-8BBD-00AA003E3B29}']
  1380.     procedure Enter; dispid -2147384830;
  1381.     procedure Exit(const Cancel: ReturnBoolean); dispid -2147384829;
  1382.     procedure BeforeUpdate(const Cancel: ReturnBoolean); dispid -2147384831;
  1383.     procedure AfterUpdate; dispid -2147384832;
  1384.   end;
  1385.  
  1386.   FormEvents = dispinterface
  1387.     ['{5B9D8FC8-4A71-101B-97A6-00000B65C08B}']
  1388.     procedure AddControl(const Control: Control); dispid 768;
  1389.     procedure BeforeDragOver(const Cancel: ReturnBoolean; const Control: Control; const Data: DataObject; X, Y: Single; State: fmDragState; const Effect: ReturnEffect; Shift: Smallint); dispid 3;
  1390.     procedure BeforeDropOrPaste(const Cancel: ReturnBoolean; const Control: Control; Action: fmAction; const Data: DataObject; X, Y: Single; const Effect: ReturnEffect; Shift: Smallint); dispid 4;
  1391.     procedure Click; dispid -600;
  1392.     procedure DblClick(const Cancel: ReturnBoolean); dispid -601;
  1393.     procedure Error(Number: Smallint; const Description: ReturnString; SCode: Integer; const Source, HelpFile: WideString; HelpContext: Integer; const CancelDisplay: ReturnBoolean); dispid -608;
  1394.     procedure KeyDown(const KeyCode: ReturnInteger; Shift: Smallint); dispid -602;
  1395.     procedure KeyPress(const KeyAscii: ReturnInteger); dispid -603;
  1396.     procedure KeyUp(const KeyCode: ReturnInteger; Shift: Smallint); dispid -604;
  1397.     procedure Layout; dispid 770;
  1398.     procedure MouseDown(Button, Shift: Smallint; X, Y: Single); dispid -605;
  1399.     procedure MouseMove(Button, Shift: Smallint; X, Y: Single); dispid -606;
  1400.     procedure MouseUp(Button, Shift: Smallint; X, Y: Single); dispid -607;
  1401.     procedure RemoveControl(const Control: Control); dispid 771;
  1402.     procedure Scroll(ActionX, ActionY: fmScrollAction; RequestDx, RequestDy: Single; const ActualDx, ActualDy: ReturnSingle); dispid 772;
  1403.     procedure Zoom(var Percent: Smallint); dispid 773;
  1404.   end;
  1405.  
  1406.   OptionFrameEvents = dispinterface
  1407.     ['{CF3F94A0-F546-11CE-9BCE-00AA00608E01}']
  1408.     procedure AddControl(const Control: Control); dispid 768;
  1409.     procedure BeforeDragOver(const Cancel: ReturnBoolean; const Control: Control; const Data: DataObject; X, Y: Single; State: fmDragState; const Effect: ReturnEffect; Shift: Smallint); dispid 3;
  1410.     procedure BeforeDropOrPaste(const Cancel: ReturnBoolean; const Control: Control; Action: fmAction; const Data: DataObject; X, Y: Single; const Effect: ReturnEffect; Shift: Smallint); dispid 4;
  1411.     procedure Click; dispid -600;
  1412.     procedure DblClick(const Cancel: ReturnBoolean); dispid -601;
  1413.     procedure Error(Number: Smallint; const Description: ReturnString; SCode: Integer; const Source, HelpFile: WideString; HelpContext: Integer; const CancelDisplay: ReturnBoolean); dispid -608;
  1414.     procedure KeyDown(const KeyCode: ReturnInteger; Shift: Smallint); dispid -602;
  1415.     procedure KeyPress(const KeyAscii: ReturnInteger); dispid -603;
  1416.     procedure KeyUp(const KeyCode: ReturnInteger; Shift: Smallint); dispid -604;
  1417.     procedure Layout; dispid 770;
  1418.     procedure MouseDown(Button, Shift: Smallint; X, Y: Single); dispid -605;
  1419.     procedure MouseMove(Button, Shift: Smallint; X, Y: Single); dispid -606;
  1420.     procedure MouseUp(Button, Shift: Smallint; X, Y: Single); dispid -607;
  1421.     procedure RemoveControl(const Control: Control); dispid 771;
  1422.     procedure Scroll(ActionX, ActionY: fmScrollAction; RequestDx, RequestDy: Single; const ActualDx, ActualDy: ReturnSingle); dispid 772;
  1423.     procedure Zoom(var Percent: Smallint); dispid 773;
  1424.   end;
  1425.  
  1426.   ILabelControl = interface(IDispatch)
  1427.     ['{04598FC1-866C-11CF-AB7C-00AA00C08FCF}']
  1428.     procedure Set_AutoSize(Value: WordBool); safecall;
  1429.     function Get_AutoSize: WordBool; safecall;
  1430.     procedure Set_BackColor(Value: TColor); safecall;
  1431.     function Get_BackColor: TColor; safecall;
  1432.     procedure Set_BackStyle(Value: fmBackStyle); safecall;
  1433.     function Get_BackStyle: fmBackStyle; safecall;
  1434.     procedure Set_BorderColor(Value: TColor); safecall;
  1435.     function Get_BorderColor: TColor; safecall;
  1436.     procedure Set_BorderStyle(Value: fmBorderStyle); safecall;
  1437.     function Get_BorderStyle: fmBorderStyle; safecall;
  1438.     procedure Set_Caption(const Value: WideString); safecall;
  1439.     function Get_Caption: WideString; safecall;
  1440.     procedure Set_Enabled(Value: WordBool); safecall;
  1441.     function Get_Enabled: WordBool; safecall;
  1442.     procedure Set__Font_Reserved(const Value: Font); safecall;
  1443.     procedure Set_Font(var Value: Font); safecall;
  1444.     function Get_Font: Font; safecall;
  1445.     procedure Set_FontItalic(Value: WordBool); safecall;
  1446.     function Get_FontItalic: WordBool; safecall;
  1447.     procedure Set_FontBold(Value: WordBool); safecall;
  1448.     function Get_FontBold: WordBool; safecall;
  1449.     procedure Set_FontName(const Value: WideString); safecall;
  1450.     function Get_FontName: WideString; safecall;
  1451.     procedure Set_FontSize(Value: Currency); safecall;
  1452.     function Get_FontSize: Currency; safecall;
  1453.     procedure Set_FontStrikethru(Value: WordBool); safecall;
  1454.     function Get_FontStrikethru: WordBool; safecall;
  1455.     procedure Set_FontUnderline(Value: WordBool); safecall;
  1456.     function Get_FontUnderline: WordBool; safecall;
  1457.     procedure Set_ForeColor(Value: TColor); safecall;
  1458.     function Get_ForeColor: TColor; safecall;
  1459.     procedure _Set_MouseIcon(const Value: Picture); safecall;
  1460.     procedure Set_MouseIcon(var Value: Picture); safecall;
  1461.     function Get_MouseIcon: Picture; safecall;
  1462.     procedure Set_MousePointer(Value: fmMousePointer); safecall;
  1463.     function Get_MousePointer: fmMousePointer; safecall;
  1464.     procedure _Set_Picture(const Value: Picture); safecall;
  1465.     procedure Set_Picture(var Value: Picture); safecall;
  1466.     function Get_Picture: Picture; safecall;
  1467.     procedure Set_PicturePosition(Value: fmPicturePosition); safecall;
  1468.     function Get_PicturePosition: fmPicturePosition; safecall;
  1469.     procedure Set_SpecialEffect(Value: fmSpecialEffect); safecall;
  1470.     function Get_SpecialEffect: fmSpecialEffect; safecall;
  1471.     procedure Set_TextAlign(Value: fmTextAlign); safecall;
  1472.     function Get_TextAlign: fmTextAlign; safecall;
  1473.     procedure Set_WordWrap(Value: WordBool); safecall;
  1474.     function Get_WordWrap: WordBool; safecall;
  1475.     procedure Set_Accelerator(const Value: WideString); safecall;
  1476.     function Get_Accelerator: WideString; safecall;
  1477.     procedure Set_FontWeight(Value: Smallint); safecall;
  1478.     function Get_FontWeight: Smallint; safecall;
  1479.     procedure Set__Value(const Value: WideString); safecall;
  1480.     function Get__Value: WideString; safecall;
  1481.     property AutoSize: WordBool read Get_AutoSize write Set_AutoSize;
  1482.     property BackColor: TColor read Get_BackColor write Set_BackColor;
  1483.     property BackStyle: fmBackStyle read Get_BackStyle write Set_BackStyle;
  1484.     property BorderColor: TColor read Get_BorderColor write Set_BorderColor;
  1485.     property BorderStyle: fmBorderStyle read Get_BorderStyle write Set_BorderStyle;
  1486.     property Caption: WideString read Get_Caption write Set_Caption;
  1487.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  1488.     property _Font_Reserved: Font write Set__Font_Reserved;
  1489.     property Font: Font read Get_Font write Set_Font;
  1490.     property FontItalic: WordBool read Get_FontItalic write Set_FontItalic;
  1491.     property FontBold: WordBool read Get_FontBold write Set_FontBold;
  1492.     property FontName: WideString read Get_FontName write Set_FontName;
  1493.     property FontSize: Currency read Get_FontSize write Set_FontSize;
  1494.     property FontStrikethru: WordBool read Get_FontStrikethru write Set_FontStrikethru;
  1495.     property FontUnderline: WordBool read Get_FontUnderline write Set_FontUnderline;
  1496.     property ForeColor: TColor read Get_ForeColor write Set_ForeColor;
  1497.     property MouseIcon: Picture read Get_MouseIcon write Set_MouseIcon;
  1498.     property MousePointer: fmMousePointer read Get_MousePointer write Set_MousePointer;
  1499.     property Picture: Picture read Get_Picture write Set_Picture;
  1500.     property PicturePosition: fmPicturePosition read Get_PicturePosition write Set_PicturePosition;
  1501.     property SpecialEffect: fmSpecialEffect read Get_SpecialEffect write Set_SpecialEffect;
  1502.     property TextAlign: fmTextAlign read Get_TextAlign write Set_TextAlign;
  1503.     property WordWrap: WordBool read Get_WordWrap write Set_WordWrap;
  1504.     property Accelerator: WideString read Get_Accelerator write Set_Accelerator;
  1505.     property FontWeight: Smallint read Get_FontWeight write Set_FontWeight;
  1506.     property _Value: WideString read Get__Value write Set__Value;
  1507.   end;
  1508.  
  1509. { DispInterface declaration for Dual Interface ILabelControl }
  1510.  
  1511.   ILabelControlDisp = dispinterface
  1512.     ['{04598FC1-866C-11CF-AB7C-00AA00C08FCF}']
  1513.     property AutoSize: WordBool dispid -500;
  1514.     property BackColor: TColor dispid -501;
  1515.     property BackStyle: fmBackStyle dispid -502;
  1516.     property BorderColor: TColor dispid -503;
  1517.     property BorderStyle: fmBorderStyle dispid -504;
  1518.     property Caption: WideString dispid 0;
  1519.     property Enabled: WordBool dispid -514;
  1520.     property _Font_Reserved: Font writeonly dispid 2147483135;
  1521.     property Font: Font dispid -512;
  1522.     property FontItalic: WordBool dispid 4;
  1523.     property FontBold: WordBool dispid 3;
  1524.     property FontName: WideString dispid 1;
  1525.     property FontSize: Currency dispid 2;
  1526.     property FontStrikethru: WordBool dispid 6;
  1527.     property FontUnderline: WordBool dispid 5;
  1528.     property ForeColor: TColor dispid -513;
  1529.     property MouseIcon: Picture dispid -522;
  1530.     property MousePointer: fmMousePointer dispid -521;
  1531.     property Picture: Picture dispid -523;
  1532.     property PicturePosition: fmPicturePosition dispid 11;
  1533.     property SpecialEffect: fmSpecialEffect dispid 12;
  1534.     property TextAlign: fmTextAlign dispid 13;
  1535.     property WordWrap: WordBool dispid -536;
  1536.     property Accelerator: WideString dispid -543;
  1537.     property FontWeight: Smallint dispid 7;
  1538.     property _Value: WideString dispid -518;
  1539.   end;
  1540.  
  1541.   ICommandButton = interface(IDispatch)
  1542.     ['{04598FC4-866C-11CF-AB7C-00AA00C08FCF}']
  1543.     procedure Set_AutoSize(Value: WordBool); safecall;
  1544.     function Get_AutoSize: WordBool; safecall;
  1545.     procedure Set_BackColor(Value: TColor); safecall;
  1546.     function Get_BackColor: TColor; safecall;
  1547.     procedure Set_BackStyle(Value: fmBackStyle); safecall;
  1548.     function Get_BackStyle: fmBackStyle; safecall;
  1549.     procedure Set_Caption(const Value: WideString); safecall;
  1550.     function Get_Caption: WideString; safecall;
  1551.     procedure Set_Enabled(Value: WordBool); safecall;
  1552.     function Get_Enabled: WordBool; safecall;
  1553.     procedure Set__Font_Reserved(const Value: Font); safecall;
  1554.     procedure Set_Font(var Value: Font); safecall;
  1555.     function Get_Font: Font; safecall;
  1556.     procedure Set_FontBold(Value: WordBool); safecall;
  1557.     function Get_FontBold: WordBool; safecall;
  1558.     procedure Set_FontItalic(Value: WordBool); safecall;
  1559.     function Get_FontItalic: WordBool; safecall;
  1560.     procedure Set_FontName(const Value: WideString); safecall;
  1561.     function Get_FontName: WideString; safecall;
  1562.     procedure Set_FontSize(Value: Currency); safecall;
  1563.     function Get_FontSize: Currency; safecall;
  1564.     procedure Set_FontStrikethru(Value: WordBool); safecall;
  1565.     function Get_FontStrikethru: WordBool; safecall;
  1566.     procedure Set_FontUnderline(Value: WordBool); safecall;
  1567.     function Get_FontUnderline: WordBool; safecall;
  1568.     procedure Set_ForeColor(Value: TColor); safecall;
  1569.     function Get_ForeColor: TColor; safecall;
  1570.     procedure Set_TakeFocusOnClick(Value: WordBool); safecall;
  1571.     function Get_TakeFocusOnClick: WordBool; safecall;
  1572.     procedure Set_Locked(Value: WordBool); safecall;
  1573.     function Get_Locked: WordBool; safecall;
  1574.     procedure _Set_MouseIcon(const Value: Picture); safecall;
  1575.     procedure Set_MouseIcon(var Value: Picture); safecall;
  1576.     function Get_MouseIcon: Picture; safecall;
  1577.     procedure Set_MousePointer(Value: fmMousePointer); safecall;
  1578.     function Get_MousePointer: fmMousePointer; safecall;
  1579.     procedure _Set_Picture(const Value: Picture); safecall;
  1580.     procedure Set_Picture(var Value: Picture); safecall;
  1581.     function Get_Picture: Picture; safecall;
  1582.     procedure Set_PicturePosition(Value: fmPicturePosition); safecall;
  1583.     function Get_PicturePosition: fmPicturePosition; safecall;
  1584.     procedure Set_Accelerator(const Value: WideString); safecall;
  1585.     function Get_Accelerator: WideString; safecall;
  1586.     procedure Set_WordWrap(Value: WordBool); safecall;
  1587.     function Get_WordWrap: WordBool; safecall;
  1588.     procedure Set_Value(Value: WordBool); safecall;
  1589.     function Get_Value: WordBool; safecall;
  1590.     procedure Set_FontWeight(Value: Smallint); safecall;
  1591.     function Get_FontWeight: Smallint; safecall;
  1592.     property AutoSize: WordBool read Get_AutoSize write Set_AutoSize;
  1593.     property BackColor: TColor read Get_BackColor write Set_BackColor;
  1594.     property BackStyle: fmBackStyle read Get_BackStyle write Set_BackStyle;
  1595.     property Caption: WideString read Get_Caption write Set_Caption;
  1596.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  1597.     property _Font_Reserved: Font write Set__Font_Reserved;
  1598.     property Font: Font read Get_Font write Set_Font;
  1599.     property FontBold: WordBool read Get_FontBold write Set_FontBold;
  1600.     property FontItalic: WordBool read Get_FontItalic write Set_FontItalic;
  1601.     property FontName: WideString read Get_FontName write Set_FontName;
  1602.     property FontSize: Currency read Get_FontSize write Set_FontSize;
  1603.     property FontStrikethru: WordBool read Get_FontStrikethru write Set_FontStrikethru;
  1604.     property FontUnderline: WordBool read Get_FontUnderline write Set_FontUnderline;
  1605.     property ForeColor: TColor read Get_ForeColor write Set_ForeColor;
  1606.     property TakeFocusOnClick: WordBool read Get_TakeFocusOnClick write Set_TakeFocusOnClick;
  1607.     property Locked: WordBool read Get_Locked write Set_Locked;
  1608.     property MouseIcon: Picture read Get_MouseIcon write Set_MouseIcon;
  1609.     property MousePointer: fmMousePointer read Get_MousePointer write Set_MousePointer;
  1610.     property Picture: Picture read Get_Picture write Set_Picture;
  1611.     property PicturePosition: fmPicturePosition read Get_PicturePosition write Set_PicturePosition;
  1612.     property Accelerator: WideString read Get_Accelerator write Set_Accelerator;
  1613.     property WordWrap: WordBool read Get_WordWrap write Set_WordWrap;
  1614.     property Value: WordBool read Get_Value write Set_Value;
  1615.     property FontWeight: Smallint read Get_FontWeight write Set_FontWeight;
  1616.   end;
  1617.  
  1618. { DispInterface declaration for Dual Interface ICommandButton }
  1619.  
  1620.   ICommandButtonDisp = dispinterface
  1621.     ['{04598FC4-866C-11CF-AB7C-00AA00C08FCF}']
  1622.     property AutoSize: WordBool dispid -500;
  1623.     property BackColor: TColor dispid -501;
  1624.     property BackStyle: fmBackStyle dispid -502;
  1625.     property Caption: WideString dispid -518;
  1626.     property Enabled: WordBool dispid -514;
  1627.     property _Font_Reserved: Font writeonly dispid 2147483135;
  1628.     property Font: Font dispid -512;
  1629.     property FontBold: WordBool dispid 3;
  1630.     property FontItalic: WordBool dispid 4;
  1631.     property FontName: WideString dispid 1;
  1632.     property FontSize: Currency dispid 2;
  1633.     property FontStrikethru: WordBool dispid 6;
  1634.     property FontUnderline: WordBool dispid 5;
  1635.     property ForeColor: TColor dispid -513;
  1636.     property TakeFocusOnClick: WordBool dispid 203;
  1637.     property Locked: WordBool dispid 10;
  1638.     property MouseIcon: Picture dispid -522;
  1639.     property MousePointer: fmMousePointer dispid -521;
  1640.     property Picture: Picture dispid -523;
  1641.     property PicturePosition: fmPicturePosition dispid 11;
  1642.     property Accelerator: WideString dispid -543;
  1643.     property WordWrap: WordBool dispid -536;
  1644.     property Value: WordBool dispid 0;
  1645.     property FontWeight: Smallint dispid 7;
  1646.   end;
  1647.  
  1648.   IMdcText = interface(IDispatch)
  1649.     ['{8BD21D13-EC42-11CE-9E0D-00AA006002F3}']
  1650.     procedure Set_AutoSize(Value: WordBool); safecall;
  1651.     function Get_AutoSize: WordBool; safecall;
  1652.     procedure Set_AutoTab(Value: WordBool); safecall;
  1653.     function Get_AutoTab: WordBool; safecall;
  1654.     procedure Set_AutoWordSelect(Value: WordBool); safecall;
  1655.     function Get_AutoWordSelect: WordBool; safecall;
  1656.     procedure Set_BackColor(Value: TColor); safecall;
  1657.     function Get_BackColor: TColor; safecall;
  1658.     procedure Set_BackStyle(Value: fmBackStyle); safecall;
  1659.     function Get_BackStyle: fmBackStyle; safecall;
  1660.     procedure Set_BorderColor(Value: TColor); safecall;
  1661.     function Get_BorderColor: TColor; safecall;
  1662.     procedure Set_BorderStyle(Value: fmBorderStyle); safecall;
  1663.     function Get_BorderStyle: fmBorderStyle; safecall;
  1664.     procedure Set_BordersSuppress(Value: WordBool); safecall;
  1665.     function Get_BordersSuppress: WordBool; safecall;
  1666.     function Get_CanPaste: WordBool; safecall;
  1667.     procedure Set_CurLine(Value: Integer); safecall;
  1668.     function Get_CurLine: Integer; safecall;
  1669.     function Get_CurTargetX: Integer; safecall;
  1670.     function Get_CurTargetY: Integer; safecall;
  1671.     procedure Set_CurX(Value: Integer); safecall;
  1672.     function Get_CurX: Integer; safecall;
  1673.     procedure Set_CurY(Value: Integer); safecall;
  1674.     function Get_CurY: Integer; safecall;
  1675.     procedure Set_DropButtonStyle(Value: fmDropButtonStyle); safecall;
  1676.     function Get_DropButtonStyle: fmDropButtonStyle; safecall;
  1677.     procedure Set_EnterKeyBehavior(Value: WordBool); safecall;
  1678.     function Get_EnterKeyBehavior: WordBool; safecall;
  1679.     procedure Set_Enabled(Value: WordBool); safecall;
  1680.     function Get_Enabled: WordBool; safecall;
  1681.     procedure Set__Font_Reserved(const Value: Font); safecall;
  1682.     procedure Set_Font(var Value: Font); safecall;
  1683.     function Get_Font: Font; safecall;
  1684.     procedure Set_FontBold(Value: WordBool); safecall;
  1685.     function Get_FontBold: WordBool; safecall;
  1686.     procedure Set_FontItalic(Value: WordBool); safecall;
  1687.     function Get_FontItalic: WordBool; safecall;
  1688.     procedure Set_FontName(const Value: WideString); safecall;
  1689.     function Get_FontName: WideString; safecall;
  1690.     procedure Set_FontSize(Value: Currency); safecall;
  1691.     function Get_FontSize: Currency; safecall;
  1692.     procedure Set_FontStrikethru(Value: WordBool); safecall;
  1693.     function Get_FontStrikethru: WordBool; safecall;
  1694.     procedure Set_FontUnderline(Value: WordBool); safecall;
  1695.     function Get_FontUnderline: WordBool; safecall;
  1696.     procedure Set_FontWeight(Value: Smallint); safecall;
  1697.     function Get_FontWeight: Smallint; safecall;
  1698.     procedure Set_ForeColor(Value: TColor); safecall;
  1699.     function Get_ForeColor: TColor; safecall;
  1700.     procedure Set_HideSelection(Value: WordBool); safecall;
  1701.     function Get_HideSelection: WordBool; safecall;
  1702.     procedure Set_IntegralHeight(Value: WordBool); safecall;
  1703.     function Get_IntegralHeight: WordBool; safecall;
  1704.     function Get_LineCount: Integer; safecall;
  1705.     procedure Set_Locked(Value: WordBool); safecall;
  1706.     function Get_Locked: WordBool; safecall;
  1707.     procedure Set_MaxLength(Value: Integer); safecall;
  1708.     function Get_MaxLength: Integer; safecall;
  1709.     procedure _Set_MouseIcon(const Value: Picture); safecall;
  1710.     procedure Set_MouseIcon(var Value: Picture); safecall;
  1711.     function Get_MouseIcon: Picture; safecall;
  1712.     procedure Set_MousePointer(Value: fmMousePointer); safecall;
  1713.     function Get_MousePointer: fmMousePointer; safecall;
  1714.     procedure Set_MultiLine(Value: WordBool); safecall;
  1715.     function Get_MultiLine: WordBool; safecall;
  1716.     procedure Set_PasswordChar(const Value: WideString); safecall;
  1717.     function Get_PasswordChar: WideString; safecall;
  1718.     procedure Set_ScrollBars(Value: fmScrollBars); safecall;
  1719.     function Get_ScrollBars: fmScrollBars; safecall;
  1720.     procedure Set_SelectionMargin(Value: WordBool); safecall;
  1721.     function Get_SelectionMargin: WordBool; safecall;
  1722.     procedure Set_SelLength(Value: Integer); safecall;
  1723.     function Get_SelLength: Integer; safecall;
  1724.     procedure Set_SelStart(Value: Integer); safecall;
  1725.     function Get_SelStart: Integer; safecall;
  1726.     procedure Set_SelText(const Value: WideString); safecall;
  1727.     function Get_SelText: WideString; safecall;
  1728.     procedure Set_ShowDropButtonWhen(Value: fmShowDropButtonWhen); safecall;
  1729.     function Get_ShowDropButtonWhen: fmShowDropButtonWhen; safecall;
  1730.     procedure Set_SpecialEffect(Value: fmSpecialEffect); safecall;
  1731.     function Get_SpecialEffect: fmSpecialEffect; safecall;
  1732.     procedure Set_TabKeyBehavior(Value: WordBool); safecall;
  1733.     function Get_TabKeyBehavior: WordBool; safecall;
  1734.     procedure Set_Text(const Value: WideString); safecall;
  1735.     function Get_Text: WideString; safecall;
  1736.     procedure Set_TextAlign(Value: fmTextAlign); safecall;
  1737.     function Get_TextAlign: fmTextAlign; safecall;
  1738.     function Get_TextLength: Integer; safecall;
  1739.     function Get_Valid: WordBool; safecall;
  1740.     procedure Set_Value(Value: OleVariant); safecall;
  1741.     function Get_Value: OleVariant; safecall;
  1742.     procedure Set_WordWrap(Value: WordBool); safecall;
  1743.     function Get_WordWrap: WordBool; safecall;
  1744.     procedure Copy; safecall;
  1745.     procedure Cut; safecall;
  1746.     procedure Paste; safecall;
  1747.     procedure Set_IMEMode(Value: fmIMEMode); safecall;
  1748.     function Get_IMEMode: fmIMEMode; safecall;
  1749.     procedure Set_EnterFieldBehavior(Value: fmEnterFieldBehavior); safecall;
  1750.     function Get_EnterFieldBehavior: fmEnterFieldBehavior; safecall;
  1751.     procedure Set_DragBehavior(Value: fmDragBehavior); safecall;
  1752.     function Get_DragBehavior: fmDragBehavior; safecall;
  1753.     function Get_DisplayStyle: fmDisplayStyle; safecall;
  1754.     property AutoSize: WordBool read Get_AutoSize write Set_AutoSize;
  1755.     property AutoTab: WordBool read Get_AutoTab write Set_AutoTab;
  1756.     property AutoWordSelect: WordBool read Get_AutoWordSelect write Set_AutoWordSelect;
  1757.     property BackColor: TColor read Get_BackColor write Set_BackColor;
  1758.     property BackStyle: fmBackStyle read Get_BackStyle write Set_BackStyle;
  1759.     property BorderColor: TColor read Get_BorderColor write Set_BorderColor;
  1760.     property BorderStyle: fmBorderStyle read Get_BorderStyle write Set_BorderStyle;
  1761.     property BordersSuppress: WordBool read Get_BordersSuppress write Set_BordersSuppress;
  1762.     property CanPaste: WordBool read Get_CanPaste;
  1763.     property CurLine: Integer read Get_CurLine write Set_CurLine;
  1764.     property CurTargetX: Integer read Get_CurTargetX;
  1765.     property CurTargetY: Integer read Get_CurTargetY;
  1766.     property CurX: Integer read Get_CurX write Set_CurX;
  1767.     property CurY: Integer read Get_CurY write Set_CurY;
  1768.     property DropButtonStyle: fmDropButtonStyle read Get_DropButtonStyle write Set_DropButtonStyle;
  1769.     property EnterKeyBehavior: WordBool read Get_EnterKeyBehavior write Set_EnterKeyBehavior;
  1770.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  1771.     property _Font_Reserved: Font write Set__Font_Reserved;
  1772.     property Font: Font read Get_Font write Set_Font;
  1773.     property FontBold: WordBool read Get_FontBold write Set_FontBold;
  1774.     property FontItalic: WordBool read Get_FontItalic write Set_FontItalic;
  1775.     property FontName: WideString read Get_FontName write Set_FontName;
  1776.     property FontSize: Currency read Get_FontSize write Set_FontSize;
  1777.     property FontStrikethru: WordBool read Get_FontStrikethru write Set_FontStrikethru;
  1778.     property FontUnderline: WordBool read Get_FontUnderline write Set_FontUnderline;
  1779.     property FontWeight: Smallint read Get_FontWeight write Set_FontWeight;
  1780.     property ForeColor: TColor read Get_ForeColor write Set_ForeColor;
  1781.     property HideSelection: WordBool read Get_HideSelection write Set_HideSelection;
  1782.     property IntegralHeight: WordBool read Get_IntegralHeight write Set_IntegralHeight;
  1783.     property LineCount: Integer read Get_LineCount;
  1784.     property Locked: WordBool read Get_Locked write Set_Locked;
  1785.     property MaxLength: Integer read Get_MaxLength write Set_MaxLength;
  1786.     property MouseIcon: Picture read Get_MouseIcon write Set_MouseIcon;
  1787.     property MousePointer: fmMousePointer read Get_MousePointer write Set_MousePointer;
  1788.     property MultiLine: WordBool read Get_MultiLine write Set_MultiLine;
  1789.     property PasswordChar: WideString read Get_PasswordChar write Set_PasswordChar;
  1790.     property ScrollBars: fmScrollBars read Get_ScrollBars write Set_ScrollBars;
  1791.     property SelectionMargin: WordBool read Get_SelectionMargin write Set_SelectionMargin;
  1792.     property SelLength: Integer read Get_SelLength write Set_SelLength;
  1793.     property SelStart: Integer read Get_SelStart write Set_SelStart;
  1794.     property SelText: WideString read Get_SelText write Set_SelText;
  1795.     property ShowDropButtonWhen: fmShowDropButtonWhen read Get_ShowDropButtonWhen write Set_ShowDropButtonWhen;
  1796.     property SpecialEffect: fmSpecialEffect read Get_SpecialEffect write Set_SpecialEffect;
  1797.     property TabKeyBehavior: WordBool read Get_TabKeyBehavior write Set_TabKeyBehavior;
  1798.     property Text: WideString read Get_Text write Set_Text;
  1799.     property TextAlign: fmTextAlign read Get_TextAlign write Set_TextAlign;
  1800.     property TextLength: Integer read Get_TextLength;
  1801.     property Valid: WordBool read Get_Valid;
  1802.     property Value: OleVariant read Get_Value write Set_Value;
  1803.     property WordWrap: WordBool read Get_WordWrap write Set_WordWrap;
  1804.     property IMEMode: fmIMEMode read Get_IMEMode write Set_IMEMode;
  1805.     property EnterFieldBehavior: fmEnterFieldBehavior read Get_EnterFieldBehavior write Set_EnterFieldBehavior;
  1806.     property DragBehavior: fmDragBehavior read Get_DragBehavior write Set_DragBehavior;
  1807.     property DisplayStyle: fmDisplayStyle read Get_DisplayStyle;
  1808.   end;
  1809.  
  1810. { DispInterface declaration for Dual Interface IMdcText }
  1811.  
  1812.   IMdcTextDisp = dispinterface
  1813.     ['{8BD21D13-EC42-11CE-9E0D-00AA006002F3}']
  1814.     property AutoSize: WordBool dispid -500;
  1815.     property AutoTab: WordBool dispid 217;
  1816.     property AutoWordSelect: WordBool dispid 218;
  1817.     property BackColor: TColor dispid -501;
  1818.     property BackStyle: fmBackStyle dispid -502;
  1819.     property BorderColor: TColor dispid -503;
  1820.     property BorderStyle: fmBorderStyle dispid -504;
  1821.     property BordersSuppress: WordBool dispid 20;
  1822.     property CanPaste: WordBool readonly dispid 25;
  1823.     property CurLine: Integer dispid 212;
  1824.     property CurTargetX: Integer readonly dispid 210;
  1825.     property CurTargetY: Integer readonly dispid 221;
  1826.     property CurX: Integer dispid 208;
  1827.     property CurY: Integer dispid 209;
  1828.     property DropButtonStyle: fmDropButtonStyle dispid 305;
  1829.     property EnterKeyBehavior: WordBool dispid -544;
  1830.     property Enabled: WordBool dispid -514;
  1831.     property _Font_Reserved: Font writeonly dispid 2147483135;
  1832.     property Font: Font dispid -512;
  1833.     property FontBold: WordBool dispid 3;
  1834.     property FontItalic: WordBool dispid 4;
  1835.     property FontName: WideString dispid 1;
  1836.     property FontSize: Currency dispid 2;
  1837.     property FontStrikethru: WordBool dispid 6;
  1838.     property FontUnderline: WordBool dispid 5;
  1839.     property FontWeight: Smallint dispid 7;
  1840.     property ForeColor: TColor dispid -513;
  1841.     property HideSelection: WordBool dispid 207;
  1842.     property IntegralHeight: WordBool dispid 604;
  1843.     property LineCount: Integer readonly dispid 214;
  1844.     property Locked: WordBool dispid 10;
  1845.     property MaxLength: Integer dispid -533;
  1846.     property MouseIcon: Picture dispid -522;
  1847.     property MousePointer: fmMousePointer dispid -521;
  1848.     property MultiLine: WordBool dispid -537;
  1849.     property PasswordChar: WideString dispid -534;
  1850.     property ScrollBars: fmScrollBars dispid -535;
  1851.     property SelectionMargin: WordBool dispid 220;
  1852.     property SelLength: Integer dispid -548;
  1853.     property SelStart: Integer dispid -547;
  1854.     property SelText: WideString dispid -546;
  1855.     property ShowDropButtonWhen: fmShowDropButtonWhen dispid 304;
  1856.     property SpecialEffect: fmSpecialEffect dispid 12;
  1857.     property TabKeyBehavior: WordBool dispid -545;
  1858.     property Text: WideString dispid -517;
  1859.     property TextAlign: fmTextAlign dispid 10004;
  1860.     property TextLength: Integer readonly dispid 216;
  1861.     property Valid: WordBool readonly dispid -524;
  1862.     property Value: OleVariant dispid 0;
  1863.     property WordWrap: WordBool dispid -536;
  1864.     procedure Copy; dispid 22;
  1865.     procedure Cut; dispid 21;
  1866.     procedure Paste; dispid 24;
  1867.     property IMEMode: fmIMEMode dispid -542;
  1868.     property EnterFieldBehavior: fmEnterFieldBehavior dispid 224;
  1869.     property DragBehavior: fmDragBehavior dispid 225;
  1870.     property DisplayStyle: fmDisplayStyle readonly dispid -540;
  1871.   end;
  1872.  
  1873.   IMdcList = interface(IDispatch)
  1874.     ['{8BD21D23-EC42-11CE-9E0D-00AA006002F3}']
  1875.     procedure Set_BackColor(Value: TColor); safecall;
  1876.     function Get_BackColor: TColor; safecall;
  1877.     procedure Set_BorderColor(Value: TColor); safecall;
  1878.     function Get_BorderColor: TColor; safecall;
  1879.     procedure Set_BorderStyle(Value: fmBorderStyle); safecall;
  1880.     function Get_BorderStyle: fmBorderStyle; safecall;
  1881.     procedure Set_BordersSuppress(Value: WordBool); safecall;
  1882.     function Get_BordersSuppress: WordBool; safecall;
  1883.     procedure Set_BoundColumn(Value: OleVariant); safecall;
  1884.     function Get_BoundColumn: OleVariant; safecall;
  1885.     procedure Set_ColumnCount(Value: Integer); safecall;
  1886.     function Get_ColumnCount: Integer; safecall;
  1887.     procedure Set_ColumnHeads(Value: WordBool); safecall;
  1888.     function Get_ColumnHeads: WordBool; safecall;
  1889.     procedure Set_ColumnWidths(const Value: WideString); safecall;
  1890.     function Get_ColumnWidths: WideString; safecall;
  1891.     procedure Set_Enabled(Value: WordBool); safecall;
  1892.     function Get_Enabled: WordBool; safecall;
  1893.     procedure Set__Font_Reserved(const Value: Font); safecall;
  1894.     procedure Set_Font(var Value: Font); safecall;
  1895.     function Get_Font: Font; safecall;
  1896.     procedure Set_FontBold(Value: WordBool); safecall;
  1897.     function Get_FontBold: WordBool; safecall;
  1898.     procedure Set_FontItalic(Value: WordBool); safecall;
  1899.     function Get_FontItalic: WordBool; safecall;
  1900.     procedure Set_FontName(const Value: WideString); safecall;
  1901.     function Get_FontName: WideString; safecall;
  1902.     procedure Set_FontSize(Value: Currency); safecall;
  1903.     function Get_FontSize: Currency; safecall;
  1904.     procedure Set_FontStrikethru(Value: WordBool); safecall;
  1905.     function Get_FontStrikethru: WordBool; safecall;
  1906.     procedure Set_FontUnderline(Value: WordBool); safecall;
  1907.     function Get_FontUnderline: WordBool; safecall;
  1908.     procedure Set_FontWeight(Value: Smallint); safecall;
  1909.     function Get_FontWeight: Smallint; safecall;
  1910.     procedure Set_ForeColor(Value: TColor); safecall;
  1911.     function Get_ForeColor: TColor; safecall;
  1912.     procedure Set_IntegralHeight(Value: WordBool); safecall;
  1913.     function Get_IntegralHeight: WordBool; safecall;
  1914.     function Get_ListCount: Integer; safecall;
  1915.     procedure Set_ListCursor(Value: PIROWSET); safecall;
  1916.     function Get_ListCursor: PIROWSET; safecall;
  1917.     procedure Set_ListIndex(Value: OleVariant); safecall;
  1918.     function Get_ListIndex: OleVariant; safecall;
  1919.     procedure Set_ListStyle(Value: fmListStyle); safecall;
  1920.     function Get_ListStyle: fmListStyle; safecall;
  1921.     procedure Set_ListWidth(Value: OleVariant); safecall;
  1922.     function Get_ListWidth: OleVariant; safecall;
  1923.     procedure Set_Locked(Value: WordBool); safecall;
  1924.     function Get_Locked: WordBool; safecall;
  1925.     procedure Set_MatchEntry(Value: fmMatchEntry); safecall;
  1926.     function Get_MatchEntry: fmMatchEntry; safecall;
  1927.     procedure _Set_MouseIcon(const Value: Picture); safecall;
  1928.     procedure Set_MouseIcon(var Value: Picture); safecall;
  1929.     function Get_MouseIcon: Picture; safecall;
  1930.     procedure Set_MousePointer(Value: fmMousePointer); safecall;
  1931.     function Get_MousePointer: fmMousePointer; safecall;
  1932.     procedure Set_MultiSelect(Value: fmMultiSelect); safecall;
  1933.     function Get_MultiSelect: fmMultiSelect; safecall;
  1934.     procedure Set_SpecialEffect(Value: fmSpecialEffect); safecall;
  1935.     function Get_SpecialEffect: fmSpecialEffect; safecall;
  1936.     procedure Set_Text(const Value: WideString); safecall;
  1937.     function Get_Text: WideString; safecall;
  1938.     procedure Set_TextColumn(Value: OleVariant); safecall;
  1939.     function Get_TextColumn: OleVariant; safecall;
  1940.     procedure Set_TopIndex(Value: OleVariant); safecall;
  1941.     function Get_TopIndex: OleVariant; safecall;
  1942.     function Get_Valid: WordBool; safecall;
  1943.     procedure Set_Value(Value: OleVariant); safecall;
  1944.     function Get_Value: OleVariant; safecall;
  1945.     function Get_Column(var pvargColumn, pvargIndex: OleVariant): OleVariant; safecall;
  1946.     procedure Set_Column(var pvargColumn, pvargIndex: OleVariant; Value: OleVariant); safecall;
  1947.     function Get_List(var pvargIndex, pvargColumn: OleVariant): OleVariant; safecall;
  1948.     procedure Set_List(var pvargIndex, pvargColumn: OleVariant; Value: OleVariant); safecall;
  1949.     function Get_Selected(var pvargIndex: OleVariant): WordBool; safecall;
  1950.     procedure Set_Selected(var pvargIndex: OleVariant; Value: WordBool); safecall;
  1951.     procedure AddItem(var pvargItem, pvargIndex: OleVariant); safecall;
  1952.     procedure Clear; safecall;
  1953.     procedure RemoveItem(var pvargIndex: OleVariant); safecall;
  1954.     procedure Set_IMEMode(Value: fmIMEMode); safecall;
  1955.     function Get_IMEMode: fmIMEMode; safecall;
  1956.     function Get_DisplayStyle: fmDisplayStyle; safecall;
  1957.     property BackColor: TColor read Get_BackColor write Set_BackColor;
  1958.     property BorderColor: TColor read Get_BorderColor write Set_BorderColor;
  1959.     property BorderStyle: fmBorderStyle read Get_BorderStyle write Set_BorderStyle;
  1960.     property BordersSuppress: WordBool read Get_BordersSuppress write Set_BordersSuppress;
  1961.     property BoundColumn: OleVariant read Get_BoundColumn write Set_BoundColumn;
  1962.     property ColumnCount: Integer read Get_ColumnCount write Set_ColumnCount;
  1963.     property ColumnHeads: WordBool read Get_ColumnHeads write Set_ColumnHeads;
  1964.     property ColumnWidths: WideString read Get_ColumnWidths write Set_ColumnWidths;
  1965.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  1966.     property _Font_Reserved: Font write Set__Font_Reserved;
  1967.     property Font: Font read Get_Font write Set_Font;
  1968.     property FontBold: WordBool read Get_FontBold write Set_FontBold;
  1969.     property FontItalic: WordBool read Get_FontItalic write Set_FontItalic;
  1970.     property FontName: WideString read Get_FontName write Set_FontName;
  1971.     property FontSize: Currency read Get_FontSize write Set_FontSize;
  1972.     property FontStrikethru: WordBool read Get_FontStrikethru write Set_FontStrikethru;
  1973.     property FontUnderline: WordBool read Get_FontUnderline write Set_FontUnderline;
  1974.     property FontWeight: Smallint read Get_FontWeight write Set_FontWeight;
  1975.     property ForeColor: TColor read Get_ForeColor write Set_ForeColor;
  1976.     property IntegralHeight: WordBool read Get_IntegralHeight write Set_IntegralHeight;
  1977.     property ListCount: Integer read Get_ListCount;
  1978.     property ListCursor: PIROWSET read Get_ListCursor write Set_ListCursor;
  1979.     property ListIndex: OleVariant read Get_ListIndex write Set_ListIndex;
  1980.     property ListStyle: fmListStyle read Get_ListStyle write Set_ListStyle;
  1981.     property ListWidth: OleVariant read Get_ListWidth write Set_ListWidth;
  1982.     property Locked: WordBool read Get_Locked write Set_Locked;
  1983.     property MatchEntry: fmMatchEntry read Get_MatchEntry write Set_MatchEntry;
  1984.     property MouseIcon: Picture read Get_MouseIcon write Set_MouseIcon;
  1985.     property MousePointer: fmMousePointer read Get_MousePointer write Set_MousePointer;
  1986.     property MultiSelect: fmMultiSelect read Get_MultiSelect write Set_MultiSelect;
  1987.     property SpecialEffect: fmSpecialEffect read Get_SpecialEffect write Set_SpecialEffect;
  1988.     property Text: WideString read Get_Text write Set_Text;
  1989.     property TextColumn: OleVariant read Get_TextColumn write Set_TextColumn;
  1990.     property TopIndex: OleVariant read Get_TopIndex write Set_TopIndex;
  1991.     property Valid: WordBool read Get_Valid;
  1992.     property Value: OleVariant read Get_Value write Set_Value;
  1993.     property Column[var pvargColumn, pvargIndex: OleVariant]: OleVariant read Get_Column write Set_Column;
  1994.     property List[var pvargIndex, pvargColumn: OleVariant]: OleVariant read Get_List write Set_List;
  1995.     property Selected[var pvargIndex: OleVariant]: WordBool read Get_Selected write Set_Selected;
  1996.     property IMEMode: fmIMEMode read Get_IMEMode write Set_IMEMode;
  1997.     property DisplayStyle: fmDisplayStyle read Get_DisplayStyle;
  1998.   end;
  1999.  
  2000. { DispInterface declaration for Dual Interface IMdcList }
  2001.  
  2002.   IMdcListDisp = dispinterface
  2003.     ['{8BD21D23-EC42-11CE-9E0D-00AA006002F3}']
  2004.     property BackColor: TColor dispid -501;
  2005.     property BorderColor: TColor dispid -503;
  2006.     property BorderStyle: fmBorderStyle dispid -504;
  2007.     property BordersSuppress: WordBool dispid 20;
  2008.     property BoundColumn: OleVariant dispid 501;
  2009.     property ColumnCount: Integer dispid 601;
  2010.     property ColumnHeads: WordBool dispid 602;
  2011.     property ColumnWidths: WideString dispid 603;
  2012.     property Enabled: WordBool dispid -514;
  2013.     property _Font_Reserved: Font writeonly dispid 2147483135;
  2014.     property Font: Font dispid -512;
  2015.     property FontBold: WordBool dispid 3;
  2016.     property FontItalic: WordBool dispid 4;
  2017.     property FontName: WideString dispid 1;
  2018.     property FontSize: Currency dispid 2;
  2019.     property FontStrikethru: WordBool dispid 6;
  2020.     property FontUnderline: WordBool dispid 5;
  2021.     property FontWeight: Smallint dispid 7;
  2022.     property ForeColor: TColor dispid -513;
  2023.     property IntegralHeight: WordBool dispid 604;
  2024.     property ListCount: Integer readonly dispid -531;
  2025.     property ListCursor: PIROWSET dispid 403;
  2026.     property ListIndex: OleVariant dispid -526;
  2027.     property ListStyle: fmListStyle dispid 307;
  2028.     property ListWidth: OleVariant dispid 606;
  2029.     property Locked: WordBool dispid 10;
  2030.     property MatchEntry: fmMatchEntry dispid 504;
  2031.     property MouseIcon: Picture dispid -522;
  2032.     property MousePointer: fmMousePointer dispid -521;
  2033.     property MultiSelect: fmMultiSelect dispid -532;
  2034.     property SpecialEffect: fmSpecialEffect dispid 12;
  2035.     property Text: WideString dispid -517;
  2036.     property TextColumn: OleVariant dispid 502;
  2037.     property TopIndex: OleVariant dispid 611;
  2038.     property Valid: WordBool readonly dispid -524;
  2039.     property Value: OleVariant dispid 0;
  2040.     property Column[var pvargColumn, pvargIndex: OleVariant]: OleVariant dispid -529;
  2041.     property List[var pvargIndex, pvargColumn: OleVariant]: OleVariant dispid -528;
  2042.     property Selected[var pvargIndex: OleVariant]: WordBool dispid -527;
  2043.     procedure AddItem(var pvargItem, pvargIndex: OleVariant); dispid -553;
  2044.     procedure Clear; dispid -554;
  2045.     procedure RemoveItem(var pvargIndex: OleVariant); dispid -555;
  2046.     property IMEMode: fmIMEMode dispid -542;
  2047.     property DisplayStyle: fmDisplayStyle readonly dispid -540;
  2048.   end;
  2049.  
  2050.   IMdcCombo = interface(IDispatch)
  2051.     ['{8BD21D33-EC42-11CE-9E0D-00AA006002F3}']
  2052.     procedure Set_AutoSize(Value: WordBool); safecall;
  2053.     function Get_AutoSize: WordBool; safecall;
  2054.     procedure Set_AutoTab(Value: WordBool); safecall;
  2055.     function Get_AutoTab: WordBool; safecall;
  2056.     procedure Set_AutoWordSelect(Value: WordBool); safecall;
  2057.     function Get_AutoWordSelect: WordBool; safecall;
  2058.     procedure Set_BackColor(Value: TColor); safecall;
  2059.     function Get_BackColor: TColor; safecall;
  2060.     procedure Set_BackStyle(Value: fmBackStyle); safecall;
  2061.     function Get_BackStyle: fmBackStyle; safecall;
  2062.     procedure Set_BorderColor(Value: TColor); safecall;
  2063.     function Get_BorderColor: TColor; safecall;
  2064.     procedure Set_BorderStyle(Value: fmBorderStyle); safecall;
  2065.     function Get_BorderStyle: fmBorderStyle; safecall;
  2066.     procedure Set_BordersSuppress(Value: WordBool); safecall;
  2067.     function Get_BordersSuppress: WordBool; safecall;
  2068.     procedure Set_BoundColumn(Value: OleVariant); safecall;
  2069.     function Get_BoundColumn: OleVariant; safecall;
  2070.     function Get_CanPaste: WordBool; safecall;
  2071.     procedure Set_ColumnCount(Value: Integer); safecall;
  2072.     function Get_ColumnCount: Integer; safecall;
  2073.     procedure Set_ColumnHeads(Value: WordBool); safecall;
  2074.     function Get_ColumnHeads: WordBool; safecall;
  2075.     procedure Set_ColumnWidths(const Value: WideString); safecall;
  2076.     function Get_ColumnWidths: WideString; safecall;
  2077.     function Get_CurTargetX: Integer; safecall;
  2078.     function Get_CurTargetY: Integer; safecall;
  2079.     procedure Set_CurX(Value: Integer); safecall;
  2080.     function Get_CurX: Integer; safecall;
  2081.     procedure Set_DropButtonStyle(Value: fmDropButtonStyle); safecall;
  2082.     function Get_DropButtonStyle: fmDropButtonStyle; safecall;
  2083.     procedure Set_Enabled(Value: WordBool); safecall;
  2084.     function Get_Enabled: WordBool; safecall;
  2085.     procedure Set__Font_Reserved(const Value: Font); safecall;
  2086.     procedure Set_Font(var Value: Font); safecall;
  2087.     function Get_Font: Font; safecall;
  2088.     procedure Set_FontBold(Value: WordBool); safecall;
  2089.     function Get_FontBold: WordBool; safecall;
  2090.     procedure Set_FontItalic(Value: WordBool); safecall;
  2091.     function Get_FontItalic: WordBool; safecall;
  2092.     procedure Set_FontName(const Value: WideString); safecall;
  2093.     function Get_FontName: WideString; safecall;
  2094.     procedure Set_FontSize(Value: Currency); safecall;
  2095.     function Get_FontSize: Currency; safecall;
  2096.     procedure Set_FontStrikethru(Value: WordBool); safecall;
  2097.     function Get_FontStrikethru: WordBool; safecall;
  2098.     procedure Set_FontUnderline(Value: WordBool); safecall;
  2099.     function Get_FontUnderline: WordBool; safecall;
  2100.     procedure Set_FontWeight(Value: Smallint); safecall;
  2101.     function Get_FontWeight: Smallint; safecall;
  2102.     procedure Set_ForeColor(Value: TColor); safecall;
  2103.     function Get_ForeColor: TColor; safecall;
  2104.     procedure Set_HideSelection(Value: WordBool); safecall;
  2105.     function Get_HideSelection: WordBool; safecall;
  2106.     function Get_LineCount: Integer; safecall;
  2107.     function Get_ListCount: Integer; safecall;
  2108.     procedure Set_ListCursor(Value: PIROWSET); safecall;
  2109.     function Get_ListCursor: PIROWSET; safecall;
  2110.     procedure Set_ListIndex(Value: OleVariant); safecall;
  2111.     function Get_ListIndex: OleVariant; safecall;
  2112.     procedure Set_ListRows(Value: Integer); safecall;
  2113.     function Get_ListRows: Integer; safecall;
  2114.     procedure Set_ListStyle(Value: fmListStyle); safecall;
  2115.     function Get_ListStyle: fmListStyle; safecall;
  2116.     procedure Set_ListWidth(Value: OleVariant); safecall;
  2117.     function Get_ListWidth: OleVariant; safecall;
  2118.     procedure Set_Locked(Value: WordBool); safecall;
  2119.     function Get_Locked: WordBool; safecall;
  2120.     procedure Set_MatchEntry(Value: fmMatchEntry); safecall;
  2121.     function Get_MatchEntry: fmMatchEntry; safecall;
  2122.     function Get_MatchFound: WordBool; safecall;
  2123.     procedure Set_MatchRequired(Value: WordBool); safecall;
  2124.     function Get_MatchRequired: WordBool; safecall;
  2125.     procedure Set_MaxLength(Value: Integer); safecall;
  2126.     function Get_MaxLength: Integer; safecall;
  2127.     procedure _Set_MouseIcon(const Value: Picture); safecall;
  2128.     procedure Set_MouseIcon(var Value: Picture); safecall;
  2129.     function Get_MouseIcon: Picture; safecall;
  2130.     procedure Set_MousePointer(Value: fmMousePointer); safecall;
  2131.     function Get_MousePointer: fmMousePointer; safecall;
  2132.     procedure Set_SelectionMargin(Value: WordBool); safecall;
  2133.     function Get_SelectionMargin: WordBool; safecall;
  2134.     procedure Set_SelLength(Value: Integer); safecall;
  2135.     function Get_SelLength: Integer; safecall;
  2136.     procedure Set_SelStart(Value: Integer); safecall;
  2137.     function Get_SelStart: Integer; safecall;
  2138.     procedure Set_SelText(const Value: WideString); safecall;
  2139.     function Get_SelText: WideString; safecall;
  2140.     procedure Set_ShowDropButtonWhen(Value: fmShowDropButtonWhen); safecall;
  2141.     function Get_ShowDropButtonWhen: fmShowDropButtonWhen; safecall;
  2142.     procedure Set_SpecialEffect(Value: fmSpecialEffect); safecall;
  2143.     function Get_SpecialEffect: fmSpecialEffect; safecall;
  2144.     procedure Set_Style(Value: fmStyle); safecall;
  2145.     function Get_Style: fmStyle; safecall;
  2146.     procedure Set_Text(const Value: WideString); safecall;
  2147.     function Get_Text: WideString; safecall;
  2148.     procedure Set_TextAlign(Value: fmTextAlign); safecall;
  2149.     function Get_TextAlign: fmTextAlign; safecall;
  2150.     procedure Set_TextColumn(Value: OleVariant); safecall;
  2151.     function Get_TextColumn: OleVariant; safecall;
  2152.     function Get_TextLength: Integer; safecall;
  2153.     procedure Set_TopIndex(Value: OleVariant); safecall;
  2154.     function Get_TopIndex: OleVariant; safecall;
  2155.     function Get_Valid: WordBool; safecall;
  2156.     procedure Set_Value(Value: OleVariant); safecall;
  2157.     function Get_Value: OleVariant; safecall;
  2158.     function Get_Column(var pvargColumn, pvargIndex: OleVariant): OleVariant; safecall;
  2159.     procedure Set_Column(var pvargColumn, pvargIndex: OleVariant; Value: OleVariant); safecall;
  2160.     function Get_List(var pvargIndex, pvargColumn: OleVariant): OleVariant; safecall;
  2161.     procedure Set_List(var pvargIndex, pvargColumn: OleVariant; Value: OleVariant); safecall;
  2162.     procedure AddItem(var pvargItem, pvargIndex: OleVariant); safecall;
  2163.     procedure Clear; safecall;
  2164.     procedure DropDown; safecall;
  2165.     procedure RemoveItem(var pvargIndex: OleVariant); safecall;
  2166.     procedure Copy; safecall;
  2167.     procedure Cut; safecall;
  2168.     procedure Paste; safecall;
  2169.     procedure Set_IMEMode(Value: fmIMEMode); safecall;
  2170.     function Get_IMEMode: fmIMEMode; safecall;
  2171.     procedure Set_EnterFieldBehavior(Value: fmEnterFieldBehavior); safecall;
  2172.     function Get_EnterFieldBehavior: fmEnterFieldBehavior; safecall;
  2173.     procedure Set_DragBehavior(Value: fmDragBehavior); safecall;
  2174.     function Get_DragBehavior: fmDragBehavior; safecall;
  2175.     function Get_DisplayStyle: fmDisplayStyle; safecall;
  2176.     property AutoSize: WordBool read Get_AutoSize write Set_AutoSize;
  2177.     property AutoTab: WordBool read Get_AutoTab write Set_AutoTab;
  2178.     property AutoWordSelect: WordBool read Get_AutoWordSelect write Set_AutoWordSelect;
  2179.     property BackColor: TColor read Get_BackColor write Set_BackColor;
  2180.     property BackStyle: fmBackStyle read Get_BackStyle write Set_BackStyle;
  2181.     property BorderColor: TColor read Get_BorderColor write Set_BorderColor;
  2182.     property BorderStyle: fmBorderStyle read Get_BorderStyle write Set_BorderStyle;
  2183.     property BordersSuppress: WordBool read Get_BordersSuppress write Set_BordersSuppress;
  2184.     property BoundColumn: OleVariant read Get_BoundColumn write Set_BoundColumn;
  2185.     property CanPaste: WordBool read Get_CanPaste;
  2186.     property ColumnCount: Integer read Get_ColumnCount write Set_ColumnCount;
  2187.     property ColumnHeads: WordBool read Get_ColumnHeads write Set_ColumnHeads;
  2188.     property ColumnWidths: WideString read Get_ColumnWidths write Set_ColumnWidths;
  2189.     property CurTargetX: Integer read Get_CurTargetX;
  2190.     property CurTargetY: Integer read Get_CurTargetY;
  2191.     property CurX: Integer read Get_CurX write Set_CurX;
  2192.     property DropButtonStyle: fmDropButtonStyle read Get_DropButtonStyle write Set_DropButtonStyle;
  2193.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  2194.     property _Font_Reserved: Font write Set__Font_Reserved;
  2195.     property Font: Font read Get_Font write Set_Font;
  2196.     property FontBold: WordBool read Get_FontBold write Set_FontBold;
  2197.     property FontItalic: WordBool read Get_FontItalic write Set_FontItalic;
  2198.     property FontName: WideString read Get_FontName write Set_FontName;
  2199.     property FontSize: Currency read Get_FontSize write Set_FontSize;
  2200.     property FontStrikethru: WordBool read Get_FontStrikethru write Set_FontStrikethru;
  2201.     property FontUnderline: WordBool read Get_FontUnderline write Set_FontUnderline;
  2202.     property FontWeight: Smallint read Get_FontWeight write Set_FontWeight;
  2203.     property ForeColor: TColor read Get_ForeColor write Set_ForeColor;
  2204.     property HideSelection: WordBool read Get_HideSelection write Set_HideSelection;
  2205.     property LineCount: Integer read Get_LineCount;
  2206.     property ListCount: Integer read Get_ListCount;
  2207.     property ListCursor: PIROWSET read Get_ListCursor write Set_ListCursor;
  2208.     property ListIndex: OleVariant read Get_ListIndex write Set_ListIndex;
  2209.     property ListRows: Integer read Get_ListRows write Set_ListRows;
  2210.     property ListStyle: fmListStyle read Get_ListStyle write Set_ListStyle;
  2211.     property ListWidth: OleVariant read Get_ListWidth write Set_ListWidth;
  2212.     property Locked: WordBool read Get_Locked write Set_Locked;
  2213.     property MatchEntry: fmMatchEntry read Get_MatchEntry write Set_MatchEntry;
  2214.     property MatchFound: WordBool read Get_MatchFound;
  2215.     property MatchRequired: WordBool read Get_MatchRequired write Set_MatchRequired;
  2216.     property MaxLength: Integer read Get_MaxLength write Set_MaxLength;
  2217.     property MouseIcon: Picture read Get_MouseIcon write Set_MouseIcon;
  2218.     property MousePointer: fmMousePointer read Get_MousePointer write Set_MousePointer;
  2219.     property SelectionMargin: WordBool read Get_SelectionMargin write Set_SelectionMargin;
  2220.     property SelLength: Integer read Get_SelLength write Set_SelLength;
  2221.     property SelStart: Integer read Get_SelStart write Set_SelStart;
  2222.     property SelText: WideString read Get_SelText write Set_SelText;
  2223.     property ShowDropButtonWhen: fmShowDropButtonWhen read Get_ShowDropButtonWhen write Set_ShowDropButtonWhen;
  2224.     property SpecialEffect: fmSpecialEffect read Get_SpecialEffect write Set_SpecialEffect;
  2225.     property Style: fmStyle read Get_Style write Set_Style;
  2226.     property Text: WideString read Get_Text write Set_Text;
  2227.     property TextAlign: fmTextAlign read Get_TextAlign write Set_TextAlign;
  2228.     property TextColumn: OleVariant read Get_TextColumn write Set_TextColumn;
  2229.     property TextLength: Integer read Get_TextLength;
  2230.     property TopIndex: OleVariant read Get_TopIndex write Set_TopIndex;
  2231.     property Valid: WordBool read Get_Valid;
  2232.     property Value: OleVariant read Get_Value write Set_Value;
  2233.     property Column[var pvargColumn, pvargIndex: OleVariant]: OleVariant read Get_Column write Set_Column;
  2234.     property List[var pvargIndex, pvargColumn: OleVariant]: OleVariant read Get_List write Set_List;
  2235.     property IMEMode: fmIMEMode read Get_IMEMode write Set_IMEMode;
  2236.     property EnterFieldBehavior: fmEnterFieldBehavior read Get_EnterFieldBehavior write Set_EnterFieldBehavior;
  2237.     property DragBehavior: fmDragBehavior read Get_DragBehavior write Set_DragBehavior;
  2238.     property DisplayStyle: fmDisplayStyle read Get_DisplayStyle;
  2239.   end;
  2240.  
  2241. { DispInterface declaration for Dual Interface IMdcCombo }
  2242.  
  2243.   IMdcComboDisp = dispinterface
  2244.     ['{8BD21D33-EC42-11CE-9E0D-00AA006002F3}']
  2245.     property AutoSize: WordBool dispid -500;
  2246.     property AutoTab: WordBool dispid 217;
  2247.     property AutoWordSelect: WordBool dispid 218;
  2248.     property BackColor: TColor dispid -501;
  2249.     property BackStyle: fmBackStyle dispid -502;
  2250.     property BorderColor: TColor dispid -503;
  2251.     property BorderStyle: fmBorderStyle dispid -504;
  2252.     property BordersSuppress: WordBool dispid 20;
  2253.     property BoundColumn: OleVariant dispid 501;
  2254.     property CanPaste: WordBool readonly dispid 25;
  2255.     property ColumnCount: Integer dispid 601;
  2256.     property ColumnHeads: WordBool dispid 602;
  2257.     property ColumnWidths: WideString dispid 603;
  2258.     property CurTargetX: Integer readonly dispid 210;
  2259.     property CurTargetY: Integer readonly dispid 221;
  2260.     property CurX: Integer dispid 208;
  2261.     property DropButtonStyle: fmDropButtonStyle dispid 305;
  2262.     property Enabled: WordBool dispid -514;
  2263.     property _Font_Reserved: Font writeonly dispid 2147483135;
  2264.     property Font: Font dispid -512;
  2265.     property FontBold: WordBool dispid 3;
  2266.     property FontItalic: WordBool dispid 4;
  2267.     property FontName: WideString dispid 1;
  2268.     property FontSize: Currency dispid 2;
  2269.     property FontStrikethru: WordBool dispid 6;
  2270.     property FontUnderline: WordBool dispid 5;
  2271.     property FontWeight: Smallint dispid 7;
  2272.     property ForeColor: TColor dispid -513;
  2273.     property HideSelection: WordBool dispid 207;
  2274.     property LineCount: Integer readonly dispid 214;
  2275.     property ListCount: Integer readonly dispid -531;
  2276.     property ListCursor: PIROWSET dispid 403;
  2277.     property ListIndex: OleVariant dispid -526;
  2278.     property ListRows: Integer dispid 605;
  2279.     property ListStyle: fmListStyle dispid 307;
  2280.     property ListWidth: OleVariant dispid 606;
  2281.     property Locked: WordBool dispid 10;
  2282.     property MatchEntry: fmMatchEntry dispid 504;
  2283.     property MatchFound: WordBool readonly dispid 505;
  2284.     property MatchRequired: WordBool dispid 503;
  2285.     property MaxLength: Integer dispid -533;
  2286.     property MouseIcon: Picture dispid -522;
  2287.     property MousePointer: fmMousePointer dispid -521;
  2288.     property SelectionMargin: WordBool dispid 220;
  2289.     property SelLength: Integer dispid -548;
  2290.     property SelStart: Integer dispid -547;
  2291.     property SelText: WideString dispid -546;
  2292.     property ShowDropButtonWhen: fmShowDropButtonWhen dispid 304;
  2293.     property SpecialEffect: fmSpecialEffect dispid 12;
  2294.     property Style: fmStyle dispid 308;
  2295.     property Text: WideString dispid -517;
  2296.     property TextAlign: fmTextAlign dispid 10004;
  2297.     property TextColumn: OleVariant dispid 502;
  2298.     property TextLength: Integer readonly dispid 216;
  2299.     property TopIndex: OleVariant dispid 611;
  2300.     property Valid: WordBool readonly dispid -524;
  2301.     property Value: OleVariant dispid 0;
  2302.     property Column[var pvargColumn, pvargIndex: OleVariant]: OleVariant dispid -529;
  2303.     property List[var pvargIndex, pvargColumn: OleVariant]: OleVariant dispid -528;
  2304.     procedure AddItem(var pvargItem, pvargIndex: OleVariant); dispid -553;
  2305.     procedure Clear; dispid -554;
  2306.     procedure DropDown; dispid 1001;
  2307.     procedure RemoveItem(var pvargIndex: OleVariant); dispid -555;
  2308.     procedure Copy; dispid 22;
  2309.     procedure Cut; dispid 21;
  2310.     procedure Paste; dispid 24;
  2311.     property IMEMode: fmIMEMode dispid -542;
  2312.     property EnterFieldBehavior: fmEnterFieldBehavior dispid 224;
  2313.     property DragBehavior: fmDragBehavior dispid 225;
  2314.     property DisplayStyle: fmDisplayStyle readonly dispid -540;
  2315.   end;
  2316.  
  2317.   IMdcCheckBox = interface(IDispatch)
  2318.     ['{8BD21D43-EC42-11CE-9E0D-00AA006002F3}']
  2319.     procedure Set_Accelerator(const Value: WideString); safecall;
  2320.     function Get_Accelerator: WideString; safecall;
  2321.     procedure Set_Alignment(Value: fmAlignment); safecall;
  2322.     function Get_Alignment: fmAlignment; safecall;
  2323.     procedure Set_AutoSize(Value: WordBool); safecall;
  2324.     function Get_AutoSize: WordBool; safecall;
  2325.     procedure Set_BackColor(Value: TColor); safecall;
  2326.     function Get_BackColor: TColor; safecall;
  2327.     procedure Set_BackStyle(Value: fmBackStyle); safecall;
  2328.     function Get_BackStyle: fmBackStyle; safecall;
  2329.     procedure Set_BordersSuppress(Value: WordBool); safecall;
  2330.     function Get_BordersSuppress: WordBool; safecall;
  2331.     procedure Set_Caption(const Value: WideString); safecall;
  2332.     function Get_Caption: WideString; safecall;
  2333.     procedure Set_Enabled(Value: WordBool); safecall;
  2334.     function Get_Enabled: WordBool; safecall;
  2335.     procedure Set__Font_Reserved(const Value: Font); safecall;
  2336.     procedure Set_Font(var Value: Font); safecall;
  2337.     function Get_Font: Font; safecall;
  2338.     procedure Set_FontBold(Value: WordBool); safecall;
  2339.     function Get_FontBold: WordBool; safecall;
  2340.     procedure Set_FontItalic(Value: WordBool); safecall;
  2341.     function Get_FontItalic: WordBool; safecall;
  2342.     procedure Set_FontName(const Value: WideString); safecall;
  2343.     function Get_FontName: WideString; safecall;
  2344.     procedure Set_FontSize(Value: Currency); safecall;
  2345.     function Get_FontSize: Currency; safecall;
  2346.     procedure Set_FontStrikethru(Value: WordBool); safecall;
  2347.     function Get_FontStrikethru: WordBool; safecall;
  2348.     procedure Set_FontUnderline(Value: WordBool); safecall;
  2349.     function Get_FontUnderline: WordBool; safecall;
  2350.     procedure Set_FontWeight(Value: Smallint); safecall;
  2351.     function Get_FontWeight: Smallint; safecall;
  2352.     procedure Set_ForeColor(Value: TColor); safecall;
  2353.     function Get_ForeColor: TColor; safecall;
  2354.     procedure Set_Locked(Value: WordBool); safecall;
  2355.     function Get_Locked: WordBool; safecall;
  2356.     procedure _Set_MouseIcon(const Value: Picture); safecall;
  2357.     procedure Set_MouseIcon(var Value: Picture); safecall;
  2358.     function Get_MouseIcon: Picture; safecall;
  2359.     procedure Set_MousePointer(Value: fmMousePointer); safecall;
  2360.     function Get_MousePointer: fmMousePointer; safecall;
  2361.     procedure Set_MultiSelect(Value: fmMultiSelect); safecall;
  2362.     function Get_MultiSelect: fmMultiSelect; safecall;
  2363.     procedure _Set_Picture(const Value: Picture); safecall;
  2364.     procedure Set_Picture(var Value: Picture); safecall;
  2365.     function Get_Picture: Picture; safecall;
  2366.     procedure Set_PicturePosition(Value: fmPicturePosition); safecall;
  2367.     function Get_PicturePosition: fmPicturePosition; safecall;
  2368.     procedure Set_SpecialEffect(Value: fmButtonEffect); safecall;
  2369.     function Get_SpecialEffect: fmButtonEffect; safecall;
  2370.     procedure Set_TripleState(Value: WordBool); safecall;
  2371.     function Get_TripleState: WordBool; safecall;
  2372.     function Get_Valid: WordBool; safecall;
  2373.     procedure Set_Value(Value: OleVariant); safecall;
  2374.     function Get_Value: OleVariant; safecall;
  2375.     procedure Set_WordWrap(Value: WordBool); safecall;
  2376.     function Get_WordWrap: WordBool; safecall;
  2377.     function Get_DisplayStyle: fmDisplayStyle; safecall;
  2378.     procedure Set_GroupName(const Value: WideString); safecall;
  2379.     function Get_GroupName: WideString; safecall;
  2380.     property Accelerator: WideString read Get_Accelerator write Set_Accelerator;
  2381.     property Alignment: fmAlignment read Get_Alignment write Set_Alignment;
  2382.     property AutoSize: WordBool read Get_AutoSize write Set_AutoSize;
  2383.     property BackColor: TColor read Get_BackColor write Set_BackColor;
  2384.     property BackStyle: fmBackStyle read Get_BackStyle write Set_BackStyle;
  2385.     property BordersSuppress: WordBool read Get_BordersSuppress write Set_BordersSuppress;
  2386.     property Caption: WideString read Get_Caption write Set_Caption;
  2387.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  2388.     property _Font_Reserved: Font write Set__Font_Reserved;
  2389.     property Font: Font read Get_Font write Set_Font;
  2390.     property FontBold: WordBool read Get_FontBold write Set_FontBold;
  2391.     property FontItalic: WordBool read Get_FontItalic write Set_FontItalic;
  2392.     property FontName: WideString read Get_FontName write Set_FontName;
  2393.     property FontSize: Currency read Get_FontSize write Set_FontSize;
  2394.     property FontStrikethru: WordBool read Get_FontStrikethru write Set_FontStrikethru;
  2395.     property FontUnderline: WordBool read Get_FontUnderline write Set_FontUnderline;
  2396.     property FontWeight: Smallint read Get_FontWeight write Set_FontWeight;
  2397.     property ForeColor: TColor read Get_ForeColor write Set_ForeColor;
  2398.     property Locked: WordBool read Get_Locked write Set_Locked;
  2399.     property MouseIcon: Picture read Get_MouseIcon write Set_MouseIcon;
  2400.     property MousePointer: fmMousePointer read Get_MousePointer write Set_MousePointer;
  2401.     property MultiSelect: fmMultiSelect read Get_MultiSelect write Set_MultiSelect;
  2402.     property Picture: Picture read Get_Picture write Set_Picture;
  2403.     property PicturePosition: fmPicturePosition read Get_PicturePosition write Set_PicturePosition;
  2404.     property SpecialEffect: fmButtonEffect read Get_SpecialEffect write Set_SpecialEffect;
  2405.     property TripleState: WordBool read Get_TripleState write Set_TripleState;
  2406.     property Valid: WordBool read Get_Valid;
  2407.     property Value: OleVariant read Get_Value write Set_Value;
  2408.     property WordWrap: WordBool read Get_WordWrap write Set_WordWrap;
  2409.     property DisplayStyle: fmDisplayStyle read Get_DisplayStyle;
  2410.     property GroupName: WideString read Get_GroupName write Set_GroupName;
  2411.   end;
  2412.  
  2413. { DispInterface declaration for Dual Interface IMdcCheckBox }
  2414.  
  2415.   IMdcCheckBoxDisp = dispinterface
  2416.     ['{8BD21D43-EC42-11CE-9E0D-00AA006002F3}']
  2417.     property Accelerator: WideString dispid -543;
  2418.     property Alignment: fmAlignment dispid 710;
  2419.     property AutoSize: WordBool dispid -500;
  2420.     property BackColor: TColor dispid -501;
  2421.     property BackStyle: fmBackStyle dispid -502;
  2422.     property BordersSuppress: WordBool dispid 20;
  2423.     property Caption: WideString dispid -518;
  2424.     property Enabled: WordBool dispid -514;
  2425.     property _Font_Reserved: Font writeonly dispid 2147483135;
  2426.     property Font: Font dispid -512;
  2427.     property FontBold: WordBool dispid 3;
  2428.     property FontItalic: WordBool dispid 4;
  2429.     property FontName: WideString dispid 1;
  2430.     property FontSize: Currency dispid 2;
  2431.     property FontStrikethru: WordBool dispid 6;
  2432.     property FontUnderline: WordBool dispid 5;
  2433.     property FontWeight: Smallint dispid 7;
  2434.     property ForeColor: TColor dispid -513;
  2435.     property Locked: WordBool dispid 10;
  2436.     property MouseIcon: Picture dispid -522;
  2437.     property MousePointer: fmMousePointer dispid -521;
  2438.     property MultiSelect: fmMultiSelect dispid -532;
  2439.     property Picture: Picture dispid -523;
  2440.     property PicturePosition: fmPicturePosition dispid 11;
  2441.     property SpecialEffect: fmButtonEffect dispid 12;
  2442.     property TripleState: WordBool dispid 700;
  2443.     property Valid: WordBool readonly dispid -524;
  2444.     property Value: OleVariant dispid 0;
  2445.     property WordWrap: WordBool dispid -536;
  2446.     property DisplayStyle: fmDisplayStyle readonly dispid -540;
  2447.     property GroupName: WideString dispid -541;
  2448.   end;
  2449.  
  2450.   IMdcOptionButton = interface(IMdcCheckBox)
  2451.     ['{8BD21D53-EC42-11CE-9E0D-00AA006002F3}']
  2452.   end;
  2453.  
  2454. { DispInterface declaration for Dual Interface IMdcOptionButton }
  2455.  
  2456.   IMdcOptionButtonDisp = dispinterface
  2457.     ['{8BD21D53-EC42-11CE-9E0D-00AA006002F3}']
  2458.     property Accelerator: WideString dispid -543;
  2459.     property Alignment: fmAlignment dispid 710;
  2460.     property AutoSize: WordBool dispid -500;
  2461.     property BackColor: TColor dispid -501;
  2462.     property BackStyle: fmBackStyle dispid -502;
  2463.     property BordersSuppress: WordBool dispid 20;
  2464.     property Caption: WideString dispid -518;
  2465.     property Enabled: WordBool dispid -514;
  2466.     property _Font_Reserved: Font writeonly dispid 2147483135;
  2467.     property Font: Font dispid -512;
  2468.     property FontBold: WordBool dispid 3;
  2469.     property FontItalic: WordBool dispid 4;
  2470.     property FontName: WideString dispid 1;
  2471.     property FontSize: Currency dispid 2;
  2472.     property FontStrikethru: WordBool dispid 6;
  2473.     property FontUnderline: WordBool dispid 5;
  2474.     property FontWeight: Smallint dispid 7;
  2475.     property ForeColor: TColor dispid -513;
  2476.     property Locked: WordBool dispid 10;
  2477.     property MouseIcon: Picture dispid -522;
  2478.     property MousePointer: fmMousePointer dispid -521;
  2479.     property MultiSelect: fmMultiSelect dispid -532;
  2480.     property Picture: Picture dispid -523;
  2481.     property PicturePosition: fmPicturePosition dispid 11;
  2482.     property SpecialEffect: fmButtonEffect dispid 12;
  2483.     property TripleState: WordBool dispid 700;
  2484.     property Valid: WordBool readonly dispid -524;
  2485.     property Value: OleVariant dispid 0;
  2486.     property WordWrap: WordBool dispid -536;
  2487.     property DisplayStyle: fmDisplayStyle readonly dispid -540;
  2488.     property GroupName: WideString dispid -541;
  2489.   end;
  2490.  
  2491.   IMdcToggleButton = interface(IMdcCheckBox)
  2492.     ['{8BD21D63-EC42-11CE-9E0D-00AA006002F3}']
  2493.   end;
  2494.  
  2495. { DispInterface declaration for Dual Interface IMdcToggleButton }
  2496.  
  2497.   IMdcToggleButtonDisp = dispinterface
  2498.     ['{8BD21D63-EC42-11CE-9E0D-00AA006002F3}']
  2499.     property Accelerator: WideString dispid -543;
  2500.     property Alignment: fmAlignment dispid 710;
  2501.     property AutoSize: WordBool dispid -500;
  2502.     property BackColor: TColor dispid -501;
  2503.     property BackStyle: fmBackStyle dispid -502;
  2504.     property BordersSuppress: WordBool dispid 20;
  2505.     property Caption: WideString dispid -518;
  2506.     property Enabled: WordBool dispid -514;
  2507.     property _Font_Reserved: Font writeonly dispid 2147483135;
  2508.     property Font: Font dispid -512;
  2509.     property FontBold: WordBool dispid 3;
  2510.     property FontItalic: WordBool dispid 4;
  2511.     property FontName: WideString dispid 1;
  2512.     property FontSize: Currency dispid 2;
  2513.     property FontStrikethru: WordBool dispid 6;
  2514.     property FontUnderline: WordBool dispid 5;
  2515.     property FontWeight: Smallint dispid 7;
  2516.     property ForeColor: TColor dispid -513;
  2517.     property Locked: WordBool dispid 10;
  2518.     property MouseIcon: Picture dispid -522;
  2519.     property MousePointer: fmMousePointer dispid -521;
  2520.     property MultiSelect: fmMultiSelect dispid -532;
  2521.     property Picture: Picture dispid -523;
  2522.     property PicturePosition: fmPicturePosition dispid 11;
  2523.     property SpecialEffect: fmButtonEffect dispid 12;
  2524.     property TripleState: WordBool dispid 700;
  2525.     property Valid: WordBool readonly dispid -524;
  2526.     property Value: OleVariant dispid 0;
  2527.     property WordWrap: WordBool dispid -536;
  2528.     property DisplayStyle: fmDisplayStyle readonly dispid -540;
  2529.     property GroupName: WideString dispid -541;
  2530.   end;
  2531.  
  2532.   IScrollbar = interface(IDispatch)
  2533.     ['{04598FC3-866C-11CF-AB7C-00AA00C08FCF}']
  2534.     procedure Set_BackColor(Value: TColor); safecall;
  2535.     function Get_BackColor: TColor; safecall;
  2536.     procedure Set_ForeColor(Value: TColor); safecall;
  2537.     function Get_ForeColor: TColor; safecall;
  2538.     procedure Set_Enabled(Value: WordBool); safecall;
  2539.     function Get_Enabled: WordBool; safecall;
  2540.     procedure Set_MousePointer(Value: fmMousePointer); safecall;
  2541.     function Get_MousePointer: fmMousePointer; safecall;
  2542.     procedure Set_Value(Value: Integer); safecall;
  2543.     function Get_Value: Integer; safecall;
  2544.     procedure Set_Min(Value: Integer); safecall;
  2545.     function Get_Min: Integer; safecall;
  2546.     procedure Set_Max(Value: Integer); safecall;
  2547.     function Get_Max: Integer; safecall;
  2548.     procedure Set_SmallChange(Value: Integer); safecall;
  2549.     function Get_SmallChange: Integer; safecall;
  2550.     procedure Set_LargeChange(Value: Integer); safecall;
  2551.     function Get_LargeChange: Integer; safecall;
  2552.     procedure Set_ProportionalThumb(Value: WordBool); safecall;
  2553.     function Get_ProportionalThumb: WordBool; safecall;
  2554.     procedure Set_Orientation(Value: fmOrientation); safecall;
  2555.     function Get_Orientation: fmOrientation; safecall;
  2556.     procedure Set_Delay(Value: Integer); safecall;
  2557.     function Get_Delay: Integer; safecall;
  2558.     procedure _Set_MouseIcon(const Value: Picture); safecall;
  2559.     procedure Set_MouseIcon(var Value: Picture); safecall;
  2560.     function Get_MouseIcon: Picture; safecall;
  2561.     property BackColor: TColor read Get_BackColor write Set_BackColor;
  2562.     property ForeColor: TColor read Get_ForeColor write Set_ForeColor;
  2563.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  2564.     property MousePointer: fmMousePointer read Get_MousePointer write Set_MousePointer;
  2565.     property Value: Integer read Get_Value write Set_Value;
  2566.     property Min: Integer read Get_Min write Set_Min;
  2567.     property Max: Integer read Get_Max write Set_Max;
  2568.     property SmallChange: Integer read Get_SmallChange write Set_SmallChange;
  2569.     property LargeChange: Integer read Get_LargeChange write Set_LargeChange;
  2570.     property ProportionalThumb: WordBool read Get_ProportionalThumb write Set_ProportionalThumb;
  2571.     property Orientation: fmOrientation read Get_Orientation write Set_Orientation;
  2572.     property Delay: Integer read Get_Delay write Set_Delay;
  2573.     property MouseIcon: Picture read Get_MouseIcon write Set_MouseIcon;
  2574.   end;
  2575.  
  2576. { DispInterface declaration for Dual Interface IScrollbar }
  2577.  
  2578.   IScrollbarDisp = dispinterface
  2579.     ['{04598FC3-866C-11CF-AB7C-00AA00C08FCF}']
  2580.     property BackColor: TColor dispid -501;
  2581.     property ForeColor: TColor dispid -513;
  2582.     property Enabled: WordBool dispid -514;
  2583.     property MousePointer: fmMousePointer dispid -521;
  2584.     property Value: Integer dispid 0;
  2585.     property Min: Integer dispid 100;
  2586.     property Max: Integer dispid 101;
  2587.     property SmallChange: Integer dispid 102;
  2588.     property LargeChange: Integer dispid 103;
  2589.     property ProportionalThumb: WordBool dispid 104;
  2590.     property Orientation: fmOrientation dispid 105;
  2591.     property Delay: Integer dispid 106;
  2592.     property MouseIcon: Picture dispid -522;
  2593.   end;
  2594.  
  2595.   Tab = interface(IDispatch)
  2596.     ['{A38BFFC3-A5A0-11CE-8107-00AA00611080}']
  2597.     procedure Set_Caption(const Value: WideString); safecall;
  2598.     function Get_Caption: WideString; safecall;
  2599.     procedure Set_ControlTipText(const Value: WideString); safecall;
  2600.     function Get_ControlTipText: WideString; safecall;
  2601.     procedure Set_Enabled(Value: WordBool); safecall;
  2602.     function Get_Enabled: WordBool; safecall;
  2603.     procedure Set_Index(Value: Integer); safecall;
  2604.     function Get_Index: Integer; safecall;
  2605.     procedure Set_Name(const Value: WideString); safecall;
  2606.     function Get_Name: WideString; safecall;
  2607.     procedure Set_Tag(const Value: WideString); safecall;
  2608.     function Get_Tag: WideString; safecall;
  2609.     procedure Set_Visible(Value: WordBool); safecall;
  2610.     function Get_Visible: WordBool; safecall;
  2611.     procedure Set_Accelerator(const Value: WideString); safecall;
  2612.     function Get_Accelerator: WideString; safecall;
  2613.     property Caption: WideString read Get_Caption write Set_Caption;
  2614.     property ControlTipText: WideString read Get_ControlTipText write Set_ControlTipText;
  2615.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  2616.     property Index: Integer read Get_Index write Set_Index;
  2617.     property Name: WideString read Get_Name write Set_Name;
  2618.     property Tag: WideString read Get_Tag write Set_Tag;
  2619.     property Visible: WordBool read Get_Visible write Set_Visible;
  2620.     property Accelerator: WideString read Get_Accelerator write Set_Accelerator;
  2621.   end;
  2622.  
  2623. { DispInterface declaration for Dual Interface Tab }
  2624.  
  2625.   TabDisp = dispinterface
  2626.     ['{A38BFFC3-A5A0-11CE-8107-00AA00611080}']
  2627.     property Caption: WideString dispid -518;
  2628.     property ControlTipText: WideString dispid -2147418043;
  2629.     property Enabled: WordBool dispid -514;
  2630.     property Index: Integer dispid 1;
  2631.     property Name: WideString dispid -2147418112;
  2632.     property Tag: WideString dispid -2147418101;
  2633.     property Visible: WordBool dispid -2147418105;
  2634.     property Accelerator: WideString dispid -543;
  2635.   end;
  2636.  
  2637.   Tabs = interface(IDispatch)
  2638.     ['{944ACF93-A1E6-11CE-8104-00AA00611080}']
  2639.     function Get_Count: Integer; safecall;
  2640.     function Get__NewEnum: IUnknown; safecall;
  2641.     function _GetItemByIndex(lIndex: Integer): Tab; safecall;
  2642.     function _GetItemByName(const bstr: WideString): Tab; safecall;
  2643.     function Item(varg: OleVariant): IDispatch; safecall;
  2644.     function Enum: IUnknown; safecall;
  2645.     function Add(bstrName, bstrCaption, lIndex: OleVariant): Tab; safecall;
  2646.     function _Add(const bstrName, bstrCaption: WideString): Tab; safecall;
  2647.     function _Insert(const bstrName, bstrCaption: WideString; lIndex: Integer): Tab; safecall;
  2648.     procedure Remove(varg: OleVariant); safecall;
  2649.     procedure Clear; safecall;
  2650.     property Count: Integer read Get_Count;
  2651.     property _NewEnum: IUnknown read Get__NewEnum;
  2652.   end;
  2653.  
  2654. { DispInterface declaration for Dual Interface Tabs }
  2655.  
  2656.   TabsDisp = dispinterface
  2657.     ['{944ACF93-A1E6-11CE-8104-00AA00611080}']
  2658.     property Count: Integer readonly dispid 60;
  2659.     property _NewEnum: IUnknown readonly dispid -4;
  2660.     function _GetItemByIndex(lIndex: Integer): Tab; dispid 1610743810;
  2661.     function _GetItemByName(const bstr: WideString): Tab; dispid 1610743811;
  2662.     function Item(varg: OleVariant): IDispatch; dispid 0;
  2663.     function Enum: IUnknown; dispid 1610743813;
  2664.     function Add(bstrName, bstrCaption, lIndex: OleVariant): Tab; dispid 66;
  2665.     function _Add(const bstrName, bstrCaption: WideString): Tab; dispid 1610743815;
  2666.     function _Insert(const bstrName, bstrCaption: WideString; lIndex: Integer): Tab; dispid 1610743816;
  2667.     procedure Remove(varg: OleVariant); dispid 67;
  2668.     procedure Clear; dispid 62;
  2669.   end;
  2670.  
  2671.   ITabStrip = interface(IDispatch)
  2672.     ['{04598FC2-866C-11CF-AB7C-00AA00C08FCF}']
  2673.     procedure Set_BackColor(Value: TColor); safecall;
  2674.     function Get_BackColor: TColor; safecall;
  2675.     procedure Set_ForeColor(Value: TColor); safecall;
  2676.     function Get_ForeColor: TColor; safecall;
  2677.     procedure Set__Font_Reserved(const Value: Font); safecall;
  2678.     procedure Set_Font(var Value: Font); safecall;
  2679.     function Get_Font: Font; safecall;
  2680.     procedure Set_FontName(const Value: WideString); safecall;
  2681.     function Get_FontName: WideString; safecall;
  2682.     procedure Set_FontBold(Value: WordBool); safecall;
  2683.     function Get_FontBold: WordBool; safecall;
  2684.     procedure Set_FontItalic(Value: WordBool); safecall;
  2685.     function Get_FontItalic: WordBool; safecall;
  2686.     procedure Set_FontUnderline(Value: WordBool); safecall;
  2687.     function Get_FontUnderline: WordBool; safecall;
  2688.     procedure Set_FontStrikethru(Value: WordBool); safecall;
  2689.     function Get_FontStrikethru: WordBool; safecall;
  2690.     procedure Set_FontSize(Value: Currency); safecall;
  2691.     function Get_FontSize: Currency; safecall;
  2692.     procedure Set_Enabled(Value: WordBool); safecall;
  2693.     function Get_Enabled: WordBool; safecall;
  2694.     procedure _Set_MouseIcon(const Value: Picture); safecall;
  2695.     procedure Set_MouseIcon(var Value: Picture); safecall;
  2696.     function Get_MouseIcon: Picture; safecall;
  2697.     procedure Set_MousePointer(Value: fmMousePointer); safecall;
  2698.     function Get_MousePointer: fmMousePointer; safecall;
  2699.     procedure Set_MultiRow(Value: WordBool); safecall;
  2700.     function Get_MultiRow: WordBool; safecall;
  2701.     procedure Set_Style(Value: fmTabStyle); safecall;
  2702.     function Get_Style: fmTabStyle; safecall;
  2703.     procedure Set_TabOrientation(Value: fmTabOrientation); safecall;
  2704.     function Get_TabOrientation: fmTabOrientation; safecall;
  2705.     procedure _SetTabFixedWidth(TabFixedWidth: Integer); safecall;
  2706.     procedure _GetTabFixedWidth(out TabFixedWidth: Integer); safecall;
  2707.     procedure _SetTabFixedHeight(TabFixedHeight: Integer); safecall;
  2708.     procedure _GetTabFixedHeight(out TabFixedHeight: Integer); safecall;
  2709.     procedure _GetClientTop(out ClientTop: Integer); safecall;
  2710.     function Get_ClientTop: Single; safecall;
  2711.     procedure _GetClientLeft(out ClientLeft: Integer); safecall;
  2712.     function Get_ClientLeft: Single; safecall;
  2713.     procedure _GetClientWidth(out ClientWidth: Integer); safecall;
  2714.     function Get_ClientWidth: Single; safecall;
  2715.     procedure _GetClientHeight(out ClientHeight: Integer); safecall;
  2716.     function Get_ClientHeight: Single; safecall;
  2717.     function Get_Tabs: Tabs; safecall;
  2718.     function Get_SelectedItem: Tab; safecall;
  2719.     procedure Set_Value(Value: Integer); safecall;
  2720.     function Get_Value: Integer; safecall;
  2721.     procedure Set_TabFixedWidth(Value: Single); safecall;
  2722.     function Get_TabFixedWidth: Single; safecall;
  2723.     procedure Set_TabFixedHeight(Value: Single); safecall;
  2724.     function Get_TabFixedHeight: Single; safecall;
  2725.     procedure Set_FontWeight(Value: Smallint); safecall;
  2726.     function Get_FontWeight: Smallint; safecall;
  2727.     property BackColor: TColor read Get_BackColor write Set_BackColor;
  2728.     property ForeColor: TColor read Get_ForeColor write Set_ForeColor;
  2729.     property _Font_Reserved: Font write Set__Font_Reserved;
  2730.     property Font: Font read Get_Font write Set_Font;
  2731.     property FontName: WideString read Get_FontName write Set_FontName;
  2732.     property FontBold: WordBool read Get_FontBold write Set_FontBold;
  2733.     property FontItalic: WordBool read Get_FontItalic write Set_FontItalic;
  2734.     property FontUnderline: WordBool read Get_FontUnderline write Set_FontUnderline;
  2735.     property FontStrikethru: WordBool read Get_FontStrikethru write Set_FontStrikethru;
  2736.     property FontSize: Currency read Get_FontSize write Set_FontSize;
  2737.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  2738.     property MouseIcon: Picture read Get_MouseIcon write Set_MouseIcon;
  2739.     property MousePointer: fmMousePointer read Get_MousePointer write Set_MousePointer;
  2740.     property MultiRow: WordBool read Get_MultiRow write Set_MultiRow;
  2741.     property Style: fmTabStyle read Get_Style write Set_Style;
  2742.     property TabOrientation: fmTabOrientation read Get_TabOrientation write Set_TabOrientation;
  2743.     property ClientTop: Single read Get_ClientTop;
  2744.     property ClientLeft: Single read Get_ClientLeft;
  2745.     property ClientWidth: Single read Get_ClientWidth;
  2746.     property ClientHeight: Single read Get_ClientHeight;
  2747.     property Tabs: Tabs read Get_Tabs;
  2748.     property SelectedItem: Tab read Get_SelectedItem;
  2749.     property Value: Integer read Get_Value write Set_Value;
  2750.     property TabFixedWidth: Single read Get_TabFixedWidth write Set_TabFixedWidth;
  2751.     property TabFixedHeight: Single read Get_TabFixedHeight write Set_TabFixedHeight;
  2752.     property FontWeight: Smallint read Get_FontWeight write Set_FontWeight;
  2753.   end;
  2754.  
  2755. { DispInterface declaration for Dual Interface ITabStrip }
  2756.  
  2757.   ITabStripDisp = dispinterface
  2758.     ['{04598FC2-866C-11CF-AB7C-00AA00C08FCF}']
  2759.     property BackColor: TColor dispid -501;
  2760.     property ForeColor: TColor dispid -513;
  2761.     property _Font_Reserved: Font writeonly dispid 2147483135;
  2762.     property Font: Font dispid -512;
  2763.     property FontName: WideString dispid 1;
  2764.     property FontBold: WordBool dispid 3;
  2765.     property FontItalic: WordBool dispid 4;
  2766.     property FontUnderline: WordBool dispid 5;
  2767.     property FontStrikethru: WordBool dispid 6;
  2768.     property FontSize: Currency dispid 2;
  2769.     property Enabled: WordBool dispid -514;
  2770.     property MouseIcon: Picture dispid -522;
  2771.     property MousePointer: fmMousePointer dispid -521;
  2772.     property MultiRow: WordBool dispid 514;
  2773.     property Style: fmTabStyle dispid 513;
  2774.     property TabOrientation: fmTabOrientation dispid 512;
  2775.     procedure _SetTabFixedWidth(TabFixedWidth: Integer); dispid 1610743840;
  2776.     procedure _GetTabFixedWidth(out TabFixedWidth: Integer); dispid 1610743841;
  2777.     procedure _SetTabFixedHeight(TabFixedHeight: Integer); dispid 1610743842;
  2778.     procedure _GetTabFixedHeight(out TabFixedHeight: Integer); dispid 1610743843;
  2779.     procedure _GetClientTop(out ClientTop: Integer); dispid 1610743844;
  2780.     property ClientTop: Single readonly dispid 548;
  2781.     procedure _GetClientLeft(out ClientLeft: Integer); dispid 1610743846;
  2782.     property ClientLeft: Single readonly dispid 547;
  2783.     procedure _GetClientWidth(out ClientWidth: Integer); dispid 1610743848;
  2784.     property ClientWidth: Single readonly dispid 549;
  2785.     procedure _GetClientHeight(out ClientHeight: Integer); dispid 1610743850;
  2786.     property ClientHeight: Single readonly dispid 546;
  2787.     property Tabs: Tabs readonly dispid 0;
  2788.     property SelectedItem: Tab readonly dispid 545;
  2789.     property Value: Integer dispid 528;
  2790.     property TabFixedWidth: Single dispid 515;
  2791.     property TabFixedHeight: Single dispid 516;
  2792.     property FontWeight: Smallint dispid 7;
  2793.   end;
  2794.  
  2795.   ISpinbutton = interface(IDispatch)
  2796.     ['{79176FB3-B7F2-11CE-97EF-00AA006D2776}']
  2797.     procedure Set_BackColor(Value: TColor); safecall;
  2798.     function Get_BackColor: TColor; safecall;
  2799.     procedure Set_ForeColor(Value: TColor); safecall;
  2800.     function Get_ForeColor: TColor; safecall;
  2801.     procedure Set_Enabled(Value: WordBool); safecall;
  2802.     function Get_Enabled: WordBool; safecall;
  2803.     procedure Set_MousePointer(Value: fmMousePointer); safecall;
  2804.     function Get_MousePointer: fmMousePointer; safecall;
  2805.     procedure Set_Value(Value: Integer); safecall;
  2806.     function Get_Value: Integer; safecall;
  2807.     procedure Set_Min(Value: Integer); safecall;
  2808.     function Get_Min: Integer; safecall;
  2809.     procedure Set_Max(Value: Integer); safecall;
  2810.     function Get_Max: Integer; safecall;
  2811.     procedure Set_SmallChange(Value: Integer); safecall;
  2812.     function Get_SmallChange: Integer; safecall;
  2813.     procedure Set_Orientation(Value: fmOrientation); safecall;
  2814.     function Get_Orientation: fmOrientation; safecall;
  2815.     procedure _Set_MouseIcon(const Value: Picture); safecall;
  2816.     procedure Set_MouseIcon(var Value: Picture); safecall;
  2817.     function Get_MouseIcon: Picture; safecall;
  2818.     procedure Set_Delay(Value: Integer); safecall;
  2819.     function Get_Delay: Integer; safecall;
  2820.     property BackColor: TColor read Get_BackColor write Set_BackColor;
  2821.     property ForeColor: TColor read Get_ForeColor write Set_ForeColor;
  2822.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  2823.     property MousePointer: fmMousePointer read Get_MousePointer write Set_MousePointer;
  2824.     property Value: Integer read Get_Value write Set_Value;
  2825.     property Min: Integer read Get_Min write Set_Min;
  2826.     property Max: Integer read Get_Max write Set_Max;
  2827.     property SmallChange: Integer read Get_SmallChange write Set_SmallChange;
  2828.     property Orientation: fmOrientation read Get_Orientation write Set_Orientation;
  2829.     property MouseIcon: Picture read Get_MouseIcon write Set_MouseIcon;
  2830.     property Delay: Integer read Get_Delay write Set_Delay;
  2831.   end;
  2832.  
  2833. { DispInterface declaration for Dual Interface ISpinbutton }
  2834.  
  2835.   ISpinbuttonDisp = dispinterface
  2836.     ['{79176FB3-B7F2-11CE-97EF-00AA006D2776}']
  2837.     property BackColor: TColor dispid -501;
  2838.     property ForeColor: TColor dispid -513;
  2839.     property Enabled: WordBool dispid -514;
  2840.     property MousePointer: fmMousePointer dispid -521;
  2841.     property Value: Integer dispid 0;
  2842.     property Min: Integer dispid 100;
  2843.     property Max: Integer dispid 101;
  2844.     property SmallChange: Integer dispid 102;
  2845.     property Orientation: fmOrientation dispid 105;
  2846.     property MouseIcon: Picture dispid -522;
  2847.     property Delay: Integer dispid 106;
  2848.   end;
  2849.  
  2850.   IImage = interface(IDispatch)
  2851.     ['{4C599243-6926-101B-9992-00000B65C6F9}']
  2852.     procedure Set_Enabled(Value: WordBool); safecall;
  2853.     function Get_Enabled: WordBool; safecall;
  2854.     procedure Set_MousePointer(Value: fmMousePointer); safecall;
  2855.     function Get_MousePointer: fmMousePointer; safecall;
  2856.     procedure Set_AutoSize(Value: WordBool); safecall;
  2857.     function Get_AutoSize: WordBool; safecall;
  2858.     procedure Set_BackColor(Value: TColor); safecall;
  2859.     function Get_BackColor: TColor; safecall;
  2860.     procedure Set_BackStyle(Value: fmBackStyle); safecall;
  2861.     function Get_BackStyle: fmBackStyle; safecall;
  2862.     procedure Set_BorderColor(Value: TColor); safecall;
  2863.     function Get_BorderColor: TColor; safecall;
  2864.     procedure Set_BorderStyle(Value: fmBorderStyle); safecall;
  2865.     function Get_BorderStyle: fmBorderStyle; safecall;
  2866.     procedure _Set_Picture(const Value: Picture); safecall;
  2867.     procedure Set_Picture(var Value: Picture); safecall;
  2868.     function Get_Picture: Picture; safecall;
  2869.     procedure _Set_MouseIcon(const Value: Picture); safecall;
  2870.     procedure Set_MouseIcon(var Value: Picture); safecall;
  2871.     function Get_MouseIcon: Picture; safecall;
  2872.     procedure Set_PictureSizeMode(Value: fmPictureSizeMode); safecall;
  2873.     function Get_PictureSizeMode: fmPictureSizeMode; safecall;
  2874.     procedure Set_PictureAlignment(Value: fmPictureAlignment); safecall;
  2875.     function Get_PictureAlignment: fmPictureAlignment; safecall;
  2876.     procedure Set_PictureTiling(Value: WordBool); safecall;
  2877.     function Get_PictureTiling: WordBool; safecall;
  2878.     procedure Set_SpecialEffect(Value: fmSpecialEffect); safecall;
  2879.     function Get_SpecialEffect: fmSpecialEffect; safecall;
  2880.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  2881.     property MousePointer: fmMousePointer read Get_MousePointer write Set_MousePointer;
  2882.     property AutoSize: WordBool read Get_AutoSize write Set_AutoSize;
  2883.     property BackColor: TColor read Get_BackColor write Set_BackColor;
  2884.     property BackStyle: fmBackStyle read Get_BackStyle write Set_BackStyle;
  2885.     property BorderColor: TColor read Get_BorderColor write Set_BorderColor;
  2886.     property BorderStyle: fmBorderStyle read Get_BorderStyle write Set_BorderStyle;
  2887.     property Picture: Picture read Get_Picture write Set_Picture;
  2888.     property MouseIcon: Picture read Get_MouseIcon write Set_MouseIcon;
  2889.     property PictureSizeMode: fmPictureSizeMode read Get_PictureSizeMode write Set_PictureSizeMode;
  2890.     property PictureAlignment: fmPictureAlignment read Get_PictureAlignment write Set_PictureAlignment;
  2891.     property PictureTiling: WordBool read Get_PictureTiling write Set_PictureTiling;
  2892.     property SpecialEffect: fmSpecialEffect read Get_SpecialEffect write Set_SpecialEffect;
  2893.   end;
  2894.  
  2895. { DispInterface declaration for Dual Interface IImage }
  2896.  
  2897.   IImageDisp = dispinterface
  2898.     ['{4C599243-6926-101B-9992-00000B65C6F9}']
  2899.     property Enabled: WordBool dispid -514;
  2900.     property MousePointer: fmMousePointer dispid -521;
  2901.     property AutoSize: WordBool dispid -500;
  2902.     property BackColor: TColor dispid -501;
  2903.     property BackStyle: fmBackStyle dispid -502;
  2904.     property BorderColor: TColor dispid -503;
  2905.     property BorderStyle: fmBorderStyle dispid -504;
  2906.     property Picture: Picture dispid -523;
  2907.     property MouseIcon: Picture dispid -522;
  2908.     property PictureSizeMode: fmPictureSizeMode dispid 27;
  2909.     property PictureAlignment: fmPictureAlignment dispid 26;
  2910.     property PictureTiling: WordBool dispid 28;
  2911.     property SpecialEffect: fmSpecialEffect dispid 12;
  2912.   end;
  2913.  
  2914.   IWHTMLSubmitButton = interface(IDispatch)
  2915.     ['{5512D111-5CC6-11CF-8D67-00AA00BDCE1D}']
  2916.     procedure Set_Action(const Value: WideString); safecall;
  2917.     function Get_Action: WideString; safecall;
  2918.     procedure Set_Caption(const Value: WideString); safecall;
  2919.     function Get_Caption: WideString; safecall;
  2920.     procedure Set_Encoding(const Value: WideString); safecall;
  2921.     function Get_Encoding: WideString; safecall;
  2922.     procedure Set_Method(const Value: WideString); safecall;
  2923.     function Get_Method: WideString; safecall;
  2924.     procedure Set_HTMLName(const Value: WideString); safecall;
  2925.     function Get_HTMLName: WideString; safecall;
  2926.     procedure Set_HTMLType(const Value: WideString); safecall;
  2927.     function Get_HTMLType: WideString; safecall;
  2928.     property Action: WideString read Get_Action write Set_Action;
  2929.     property Caption: WideString read Get_Caption write Set_Caption;
  2930.     property Encoding: WideString read Get_Encoding write Set_Encoding;
  2931.     property Method: WideString read Get_Method write Set_Method;
  2932.     property HTMLName: WideString read Get_HTMLName write Set_HTMLName;
  2933.     property HTMLType: WideString read Get_HTMLType write Set_HTMLType;
  2934.   end;
  2935.  
  2936. { DispInterface declaration for Dual Interface IWHTMLSubmitButton }
  2937.  
  2938.   IWHTMLSubmitButtonDisp = dispinterface
  2939.     ['{5512D111-5CC6-11CF-8D67-00AA00BDCE1D}']
  2940.     property Action: WideString dispid 601;
  2941.     property Caption: WideString dispid 602;
  2942.     property Encoding: WideString dispid 603;
  2943.     property Method: WideString dispid 604;
  2944.     property HTMLName: WideString dispid -541;
  2945.     property HTMLType: WideString dispid 618;
  2946.   end;
  2947.  
  2948.   IWHTMLImage = interface(IDispatch)
  2949.     ['{5512D113-5CC6-11CF-8D67-00AA00BDCE1D}']
  2950.     procedure Set_Action(const Value: WideString); safecall;
  2951.     function Get_Action: WideString; safecall;
  2952.     procedure Set_Source(const Value: WideString); safecall;
  2953.     function Get_Source: WideString; safecall;
  2954.     procedure Set_Encoding(const Value: WideString); safecall;
  2955.     function Get_Encoding: WideString; safecall;
  2956.     procedure Set_Method(const Value: WideString); safecall;
  2957.     function Get_Method: WideString; safecall;
  2958.     procedure Set_HTMLName(const Value: WideString); safecall;
  2959.     function Get_HTMLName: WideString; safecall;
  2960.     procedure Set_HTMLType(const Value: WideString); safecall;
  2961.     function Get_HTMLType: WideString; safecall;
  2962.     property Action: WideString read Get_Action write Set_Action;
  2963.     property Source: WideString read Get_Source write Set_Source;
  2964.     property Encoding: WideString read Get_Encoding write Set_Encoding;
  2965.     property Method: WideString read Get_Method write Set_Method;
  2966.     property HTMLName: WideString read Get_HTMLName write Set_HTMLName;
  2967.     property HTMLType: WideString read Get_HTMLType write Set_HTMLType;
  2968.   end;
  2969.  
  2970. { DispInterface declaration for Dual Interface IWHTMLImage }
  2971.  
  2972.   IWHTMLImageDisp = dispinterface
  2973.     ['{5512D113-5CC6-11CF-8D67-00AA00BDCE1D}']
  2974.     property Action: WideString dispid 601;
  2975.     property Source: WideString dispid 606;
  2976.     property Encoding: WideString dispid 603;
  2977.     property Method: WideString dispid 604;
  2978.     property HTMLName: WideString dispid -541;
  2979.     property HTMLType: WideString dispid 618;
  2980.   end;
  2981.  
  2982.   IWHTMLReset = interface(IDispatch)
  2983.     ['{5512D115-5CC6-11CF-8D67-00AA00BDCE1D}']
  2984.     procedure Set_Caption(const Value: WideString); safecall;
  2985.     function Get_Caption: WideString; safecall;
  2986.     procedure Set_HTMLName(const Value: WideString); safecall;
  2987.     function Get_HTMLName: WideString; safecall;
  2988.     procedure Set_HTMLType(const Value: WideString); safecall;
  2989.     function Get_HTMLType: WideString; safecall;
  2990.     property Caption: WideString read Get_Caption write Set_Caption;
  2991.     property HTMLName: WideString read Get_HTMLName write Set_HTMLName;
  2992.     property HTMLType: WideString read Get_HTMLType write Set_HTMLType;
  2993.   end;
  2994.  
  2995. { DispInterface declaration for Dual Interface IWHTMLReset }
  2996.  
  2997.   IWHTMLResetDisp = dispinterface
  2998.     ['{5512D115-5CC6-11CF-8D67-00AA00BDCE1D}']
  2999.     property Caption: WideString dispid 602;
  3000.     property HTMLName: WideString dispid -541;
  3001.     property HTMLType: WideString dispid 618;
  3002.   end;
  3003.  
  3004.   IWHTMLCheckbox = interface(IDispatch)
  3005.     ['{5512D117-5CC6-11CF-8D67-00AA00BDCE1D}']
  3006.     procedure Set_HTMLName(const Value: WideString); safecall;
  3007.     function Get_HTMLName: WideString; safecall;
  3008.     procedure Set_Value(const Value: WideString); safecall;
  3009.     function Get_Value: WideString; safecall;
  3010.     procedure Set_Checked(Value: WordBool); safecall;
  3011.     function Get_Checked: WordBool; safecall;
  3012.     procedure Set_HTMLType(const Value: WideString); safecall;
  3013.     function Get_HTMLType: WideString; safecall;
  3014.     property HTMLName: WideString read Get_HTMLName write Set_HTMLName;
  3015.     property Value: WideString read Get_Value write Set_Value;
  3016.     property Checked: WordBool read Get_Checked write Set_Checked;
  3017.     property HTMLType: WideString read Get_HTMLType write Set_HTMLType;
  3018.   end;
  3019.  
  3020. { DispInterface declaration for Dual Interface IWHTMLCheckbox }
  3021.  
  3022.   IWHTMLCheckboxDisp = dispinterface
  3023.     ['{5512D117-5CC6-11CF-8D67-00AA00BDCE1D}']
  3024.     property HTMLName: WideString dispid -541;
  3025.     property Value: WideString dispid 607;
  3026.     property Checked: WordBool dispid 0;
  3027.     property HTMLType: WideString dispid 618;
  3028.   end;
  3029.  
  3030.   IWHTMLOption = interface(IDispatch)
  3031.     ['{5512D119-5CC6-11CF-8D67-00AA00BDCE1D}']
  3032.     procedure Set_HTMLName(const Value: WideString); safecall;
  3033.     function Get_HTMLName: WideString; safecall;
  3034.     procedure Set_Value(const Value: WideString); safecall;
  3035.     function Get_Value: WideString; safecall;
  3036.     procedure Set_Checked(Value: WordBool); safecall;
  3037.     function Get_Checked: WordBool; safecall;
  3038.     procedure Set_HTMLType(const Value: WideString); safecall;
  3039.     function Get_HTMLType: WideString; safecall;
  3040.     function Get_DisplayStyle: fmDisplayStyle; safecall;
  3041.     property HTMLName: WideString read Get_HTMLName write Set_HTMLName;
  3042.     property Value: WideString read Get_Value write Set_Value;
  3043.     property Checked: WordBool read Get_Checked write Set_Checked;
  3044.     property HTMLType: WideString read Get_HTMLType write Set_HTMLType;
  3045.     property DisplayStyle: fmDisplayStyle read Get_DisplayStyle;
  3046.   end;
  3047.  
  3048. { DispInterface declaration for Dual Interface IWHTMLOption }
  3049.  
  3050.   IWHTMLOptionDisp = dispinterface
  3051.     ['{5512D119-5CC6-11CF-8D67-00AA00BDCE1D}']
  3052.     property HTMLName: WideString dispid -541;
  3053.     property Value: WideString dispid 607;
  3054.     property Checked: WordBool dispid 0;
  3055.     property HTMLType: WideString dispid 618;
  3056.     property DisplayStyle: fmDisplayStyle readonly dispid -540;
  3057.   end;
  3058.  
  3059.   IWHTMLText = interface(IDispatch)
  3060.     ['{5512D11B-5CC6-11CF-8D67-00AA00BDCE1D}']
  3061.     procedure Set_HTMLName(const Value: WideString); safecall;
  3062.     function Get_HTMLName: WideString; safecall;
  3063.     procedure Set_Value(const Value: WideString); safecall;
  3064.     function Get_Value: WideString; safecall;
  3065.     procedure Set_MaxLength(Value: Integer); safecall;
  3066.     function Get_MaxLength: Integer; safecall;
  3067.     procedure Set_Width(Value: Integer); safecall;
  3068.     function Get_Width: Integer; safecall;
  3069.     procedure Set_HTMLType(const Value: WideString); safecall;
  3070.     function Get_HTMLType: WideString; safecall;
  3071.     property HTMLName: WideString read Get_HTMLName write Set_HTMLName;
  3072.     property Value: WideString read Get_Value write Set_Value;
  3073.     property MaxLength: Integer read Get_MaxLength write Set_MaxLength;
  3074.     property Width: Integer read Get_Width write Set_Width;
  3075.     property HTMLType: WideString read Get_HTMLType write Set_HTMLType;
  3076.   end;
  3077.  
  3078. { DispInterface declaration for Dual Interface IWHTMLText }
  3079.  
  3080.   IWHTMLTextDisp = dispinterface
  3081.     ['{5512D11B-5CC6-11CF-8D67-00AA00BDCE1D}']
  3082.     property HTMLName: WideString dispid -541;
  3083.     property Value: WideString dispid 0;
  3084.     property MaxLength: Integer dispid 609;
  3085.     property Width: Integer dispid 610;
  3086.     property HTMLType: WideString dispid 618;
  3087.   end;
  3088.  
  3089.   IWHTMLHidden = interface(IDispatch)
  3090.     ['{5512D11D-5CC6-11CF-8D67-00AA00BDCE1D}']
  3091.     procedure Set_HTMLName(const Value: WideString); safecall;
  3092.     function Get_HTMLName: WideString; safecall;
  3093.     procedure Set_Value(const Value: WideString); safecall;
  3094.     function Get_Value: WideString; safecall;
  3095.     procedure Set_HTMLType(const Value: WideString); safecall;
  3096.     function Get_HTMLType: WideString; safecall;
  3097.     property HTMLName: WideString read Get_HTMLName write Set_HTMLName;
  3098.     property Value: WideString read Get_Value write Set_Value;
  3099.     property HTMLType: WideString read Get_HTMLType write Set_HTMLType;
  3100.   end;
  3101.  
  3102. { DispInterface declaration for Dual Interface IWHTMLHidden }
  3103.  
  3104.   IWHTMLHiddenDisp = dispinterface
  3105.     ['{5512D11D-5CC6-11CF-8D67-00AA00BDCE1D}']
  3106.     property HTMLName: WideString dispid -541;
  3107.     property Value: WideString dispid 0;
  3108.     property HTMLType: WideString dispid 618;
  3109.   end;
  3110.  
  3111.   IWHTMLPassword = interface(IDispatch)
  3112.     ['{5512D11F-5CC6-11CF-8D67-00AA00BDCE1D}']
  3113.     procedure Set_HTMLName(const Value: WideString); safecall;
  3114.     function Get_HTMLName: WideString; safecall;
  3115.     procedure Set_Value(const Value: WideString); safecall;
  3116.     function Get_Value: WideString; safecall;
  3117.     procedure Set_MaxLength(Value: Integer); safecall;
  3118.     function Get_MaxLength: Integer; safecall;
  3119.     procedure Set_Width(Value: Integer); safecall;
  3120.     function Get_Width: Integer; safecall;
  3121.     procedure Set_HTMLType(const Value: WideString); safecall;
  3122.     function Get_HTMLType: WideString; safecall;
  3123.     property HTMLName: WideString read Get_HTMLName write Set_HTMLName;
  3124.     property Value: WideString read Get_Value write Set_Value;
  3125.     property MaxLength: Integer read Get_MaxLength write Set_MaxLength;
  3126.     property Width: Integer read Get_Width write Set_Width;
  3127.     property HTMLType: WideString read Get_HTMLType write Set_HTMLType;
  3128.   end;
  3129.  
  3130. { DispInterface declaration for Dual Interface IWHTMLPassword }
  3131.  
  3132.   IWHTMLPasswordDisp = dispinterface
  3133.     ['{5512D11F-5CC6-11CF-8D67-00AA00BDCE1D}']
  3134.     property HTMLName: WideString dispid -541;
  3135.     property Value: WideString dispid 0;
  3136.     property MaxLength: Integer dispid 609;
  3137.     property Width: Integer dispid 610;
  3138.     property HTMLType: WideString dispid 618;
  3139.   end;
  3140.  
  3141.   IWHTMLSelect = interface(IDispatch)
  3142.     ['{5512D123-5CC6-11CF-8D67-00AA00BDCE1D}']
  3143.     procedure Set_HTMLName(const Value: WideString); safecall;
  3144.     function Get_HTMLName: WideString; safecall;
  3145.     procedure Set_Values(Value: OleVariant); safecall;
  3146.     function Get_Values: OleVariant; safecall;
  3147.     procedure Set_DisplayValues(Value: OleVariant); safecall;
  3148.     function Get_DisplayValues: OleVariant; safecall;
  3149.     procedure Set_Selected(const Value: WideString); safecall;
  3150.     function Get_Selected: WideString; safecall;
  3151.     procedure Set_MultiSelect(Value: WordBool); safecall;
  3152.     function Get_MultiSelect: WordBool; safecall;
  3153.     procedure Set_Size(Value: Integer); safecall;
  3154.     function Get_Size: Integer; safecall;
  3155.     property HTMLName: WideString read Get_HTMLName write Set_HTMLName;
  3156.     property Values: OleVariant read Get_Values write Set_Values;
  3157.     property DisplayValues: OleVariant read Get_DisplayValues write Set_DisplayValues;
  3158.     property Selected: WideString read Get_Selected write Set_Selected;
  3159.     property MultiSelect: WordBool read Get_MultiSelect write Set_MultiSelect;
  3160.     property Size: Integer read Get_Size write Set_Size;
  3161.   end;
  3162.  
  3163. { DispInterface declaration for Dual Interface IWHTMLSelect }
  3164.  
  3165.   IWHTMLSelectDisp = dispinterface
  3166.     ['{5512D123-5CC6-11CF-8D67-00AA00BDCE1D}']
  3167.     property HTMLName: WideString dispid -541;
  3168.     property Values: OleVariant dispid 611;
  3169.     property DisplayValues: OleVariant dispid 612;
  3170.     property Selected: WideString dispid 613;
  3171.     property MultiSelect: WordBool dispid 614;
  3172.     property Size: Integer dispid 619;
  3173.   end;
  3174.  
  3175.   IWHTMLTextArea = interface(IDispatch)
  3176.     ['{5512D125-5CC6-11CF-8D67-00AA00BDCE1D}']
  3177.     procedure Set_HTMLName(const Value: WideString); safecall;
  3178.     function Get_HTMLName: WideString; safecall;
  3179.     procedure Set_Value(const Value: WideString); safecall;
  3180.     function Get_Value: WideString; safecall;
  3181.     procedure Set_Rows(Value: Integer); safecall;
  3182.     function Get_Rows: Integer; safecall;
  3183.     procedure Set_Columns(Value: Integer); safecall;
  3184.     function Get_Columns: Integer; safecall;
  3185.     procedure Set_WordWrap(const Value: WideString); safecall;
  3186.     function Get_WordWrap: WideString; safecall;
  3187.     property HTMLName: WideString read Get_HTMLName write Set_HTMLName;
  3188.     property Value: WideString read Get_Value write Set_Value;
  3189.     property Rows: Integer read Get_Rows write Set_Rows;
  3190.     property Columns: Integer read Get_Columns write Set_Columns;
  3191.     property WordWrap: WideString read Get_WordWrap write Set_WordWrap;
  3192.   end;
  3193.  
  3194. { DispInterface declaration for Dual Interface IWHTMLTextArea }
  3195.  
  3196.   IWHTMLTextAreaDisp = dispinterface
  3197.     ['{5512D125-5CC6-11CF-8D67-00AA00BDCE1D}']
  3198.     property HTMLName: WideString dispid -541;
  3199.     property Value: WideString dispid 0;
  3200.     property Rows: Integer dispid 615;
  3201.     property Columns: Integer dispid 616;
  3202.     property WordWrap: WideString dispid 617;
  3203.   end;
  3204.  
  3205.   LabelControlEvents = dispinterface
  3206.     ['{978C9E22-D4B0-11CE-BF2D-00AA003F40D0}']
  3207.     procedure BeforeDragOver(const Cancel: ReturnBoolean; const Data: DataObject; X, Y: Single; DragState: fmDragState; const Effect: ReturnEffect; Shift: Smallint); dispid 3;
  3208.     procedure BeforeDropOrPaste(const Cancel: ReturnBoolean; Action: fmAction; const Data: DataObject; X, Y: Single; const Effect: ReturnEffect; Shift: Smallint); dispid 4;
  3209.     procedure Click; dispid -600;
  3210.     procedure DblClick(const Cancel: ReturnBoolean); dispid -601;
  3211.     procedure Error(Number: Smallint; const Description: ReturnString; SCode: Integer; const Source, HelpFile: WideString; HelpContext: Integer; const CancelDisplay: ReturnBoolean); dispid -608;
  3212.     procedure MouseDown(Button, Shift: Smallint; X, Y: Single); dispid -605;
  3213.     procedure MouseMove(Button, Shift: Smallint; X, Y: Single); dispid -606;
  3214.     procedure MouseUp(Button, Shift: Smallint; X, Y: Single); dispid -607;
  3215.   end;
  3216.  
  3217.   CommandButtonEvents = dispinterface
  3218.     ['{7B020EC1-AF6C-11CE-9F46-00AA00574A4F}']
  3219.     procedure BeforeDragOver(const Cancel: ReturnBoolean; const Data: DataObject; X, Y: Single; DragState: fmDragState; const Effect: ReturnEffect; Shift: Smallint); dispid 3;
  3220.     procedure BeforeDropOrPaste(const Cancel: ReturnBoolean; Action: fmAction; const Data: DataObject; X, Y: Single; const Effect: ReturnEffect; Shift: Smallint); dispid 4;
  3221.     procedure Click; dispid -600;
  3222.     procedure DblClick(const Cancel: ReturnBoolean); dispid -601;
  3223.     procedure Error(Number: Smallint; const Description: ReturnString; SCode: Integer; const Source, HelpFile: WideString; HelpContext: Integer; const CancelDisplay: ReturnBoolean); dispid -608;
  3224.     procedure KeyDown(const KeyCode: ReturnInteger; Shift: Smallint); dispid -602;
  3225.     procedure KeyPress(const KeyAscii: ReturnInteger); dispid -603;
  3226.     procedure KeyUp(const KeyCode: ReturnInteger; Shift: Smallint); dispid -604;
  3227.     procedure MouseDown(Button, Shift: Smallint; X, Y: Single); dispid -605;
  3228.     procedure MouseMove(Button, Shift: Smallint; X, Y: Single); dispid -606;
  3229.     procedure MouseUp(Button, Shift: Smallint; X, Y: Single); dispid -607;
  3230.   end;
  3231.  
  3232.   MdcTextEvents = dispinterface
  3233.     ['{8BD21D12-EC42-11CE-9E0D-00AA006002F3}']
  3234.     procedure BeforeDragOver(const Cancel: ReturnBoolean; const Data: DataObject; X, Y: Single; DragState: fmDragState; const Effect: ReturnEffect; Shift: Smallint); dispid 3;
  3235.     procedure BeforeDropOrPaste(const Cancel: ReturnBoolean; Action: fmAction; const Data: DataObject; X, Y: Single; const Effect: ReturnEffect; Shift: Smallint); dispid 4;
  3236.     procedure Change; dispid 2;
  3237.     procedure DblClick(const Cancel: ReturnBoolean); dispid -601;
  3238.     procedure DropButtonClick; dispid 2002;
  3239.     procedure Error(Number: Smallint; const Description: ReturnString; SCode: Integer; const Source, HelpFile: WideString; HelpContext: Integer; const CancelDisplay: ReturnBoolean); dispid -608;
  3240.     procedure KeyDown(const KeyCode: ReturnInteger; Shift: Smallint); dispid -602;
  3241.     procedure KeyPress(const KeyAscii: ReturnInteger); dispid -603;
  3242.     procedure KeyUp(const KeyCode: ReturnInteger; Shift: Smallint); dispid -604;
  3243.     procedure MouseDown(Button, Shift: Smallint; X, Y: Single); dispid -605;
  3244.     procedure MouseMove(Button, Shift: Smallint; X, Y: Single); dispid -606;
  3245.     procedure MouseUp(Button, Shift: Smallint; X, Y: Single); dispid -607;
  3246.   end;
  3247.  
  3248.   MdcListEvents = dispinterface
  3249.     ['{8BD21D22-EC42-11CE-9E0D-00AA006002F3}']
  3250.     procedure BeforeDragOver(const Cancel: ReturnBoolean; const Data: DataObject; X, Y: Single; DragState: fmDragState; const Effect: ReturnEffect; Shift: Smallint); dispid 3;
  3251.     procedure BeforeDropOrPaste(const Cancel: ReturnBoolean; Action: fmAction; const Data: DataObject; X, Y: Single; const Effect: ReturnEffect; Shift: Smallint); dispid 4;
  3252.     procedure Change; dispid 2;
  3253.     procedure Click; dispid -610;
  3254.     procedure DblClick(const Cancel: ReturnBoolean); dispid -601;
  3255.     procedure Error(Number: Smallint; const Description: ReturnString; SCode: Integer; const Source, HelpFile: WideString; HelpContext: Integer; const CancelDisplay: ReturnBoolean); dispid -608;
  3256.     procedure KeyDown(const KeyCode: ReturnInteger; Shift: Smallint); dispid -602;
  3257.     procedure KeyPress(const KeyAscii: ReturnInteger); dispid -603;
  3258.     procedure KeyUp(const KeyCode: ReturnInteger; Shift: Smallint); dispid -604;
  3259.     procedure MouseDown(Button, Shift: Smallint; X, Y: Single); dispid -605;
  3260.     procedure MouseMove(Button, Shift: Smallint; X, Y: Single); dispid -606;
  3261.     procedure MouseUp(Button, Shift: Smallint; X, Y: Single); dispid -607;
  3262.   end;
  3263.  
  3264.   MdcComboEvents = dispinterface
  3265.     ['{8BD21D32-EC42-11CE-9E0D-00AA006002F3}']
  3266.     procedure BeforeDragOver(const Cancel: ReturnBoolean; const Data: DataObject; X, Y: Single; DragState: fmDragState; const Effect: ReturnEffect; Shift: Smallint); dispid 3;
  3267.     procedure BeforeDropOrPaste(const Cancel: ReturnBoolean; Action: fmAction; const Data: DataObject; X, Y: Single; const Effect: ReturnEffect; Shift: Smallint); dispid 4;
  3268.     procedure Change; dispid 2;
  3269.     procedure Click; dispid -610;
  3270.     procedure DblClick(const Cancel: ReturnBoolean); dispid -601;
  3271.     procedure DropButtonClick; dispid 2002;
  3272.     procedure Error(Number: Smallint; const Description: ReturnString; SCode: Integer; const Source, HelpFile: WideString; HelpContext: Integer; const CancelDisplay: ReturnBoolean); dispid -608;
  3273.     procedure KeyDown(const KeyCode: ReturnInteger; Shift: Smallint); dispid -602;
  3274.     procedure KeyPress(const KeyAscii: ReturnInteger); dispid -603;
  3275.     procedure KeyUp(const KeyCode: ReturnInteger; Shift: Smallint); dispid -604;
  3276.     procedure MouseDown(Button, Shift: Smallint; X, Y: Single); dispid -605;
  3277.     procedure MouseMove(Button, Shift: Smallint; X, Y: Single); dispid -606;
  3278.     procedure MouseUp(Button, Shift: Smallint; X, Y: Single); dispid -607;
  3279.   end;
  3280.  
  3281.   MdcCheckBoxEvents = dispinterface
  3282.     ['{8BD21D42-EC42-11CE-9E0D-00AA006002F3}']
  3283.     procedure BeforeDragOver(const Cancel: ReturnBoolean; const Data: DataObject; X, Y: Single; DragState: fmDragState; const Effect: ReturnEffect; Shift: Smallint); dispid 3;
  3284.     procedure BeforeDropOrPaste(const Cancel: ReturnBoolean; Action: fmAction; const Data: DataObject; X, Y: Single; const Effect: ReturnEffect; Shift: Smallint); dispid 4;
  3285.     procedure Change; dispid 2;
  3286.     procedure Click; dispid -610;
  3287.     procedure DblClick(const Cancel: ReturnBoolean); dispid -601;
  3288.     procedure Error(Number: Smallint; const Description: ReturnString; SCode: Integer; const Source, HelpFile: WideString; HelpContext: Integer; const CancelDisplay: ReturnBoolean); dispid -608;
  3289.     procedure KeyDown(const KeyCode: ReturnInteger; Shift: Smallint); dispid -602;
  3290.     procedure KeyPress(const KeyAscii: ReturnInteger); dispid -603;
  3291.     procedure KeyUp(const KeyCode: ReturnInteger; Shift: Smallint); dispid -604;
  3292.     procedure MouseDown(Button, Shift: Smallint; X, Y: Single); dispid -605;
  3293.     procedure MouseMove(Button, Shift: Smallint; X, Y: Single); dispid -606;
  3294.     procedure MouseUp(Button, Shift: Smallint; X, Y: Single); dispid -607;
  3295.   end;
  3296.  
  3297.   MdcOptionButtonEvents = dispinterface
  3298.     ['{8BD21D52-EC42-11CE-9E0D-00AA006002F3}']
  3299.     procedure BeforeDragOver(const Cancel: ReturnBoolean; const Data: DataObject; X, Y: Single; DragState: fmDragState; const Effect: ReturnEffect; Shift: Smallint); dispid 3;
  3300.     procedure BeforeDropOrPaste(const Cancel: ReturnBoolean; Action: fmAction; const Data: DataObject; X, Y: Single; const Effect: ReturnEffect; Shift: Smallint); dispid 4;
  3301.     procedure Change; dispid 2;
  3302.     procedure Click; dispid -610;
  3303.     procedure DblClick(const Cancel: ReturnBoolean); dispid -601;
  3304.     procedure Error(Number: Smallint; const Description: ReturnString; SCode: Integer; const Source, HelpFile: WideString; HelpContext: Integer; const CancelDisplay: ReturnBoolean); dispid -608;
  3305.     procedure KeyDown(const KeyCode: ReturnInteger; Shift: Smallint); dispid -602;
  3306.     procedure KeyPress(const KeyAscii: ReturnInteger); dispid -603;
  3307.     procedure KeyUp(const KeyCode: ReturnInteger; Shift: Smallint); dispid -604;
  3308.     procedure MouseDown(Button, Shift: Smallint; X, Y: Single); dispid -605;
  3309.     procedure MouseMove(Button, Shift: Smallint; X, Y: Single); dispid -606;
  3310.     procedure MouseUp(Button, Shift: Smallint; X, Y: Single); dispid -607;
  3311.   end;
  3312.  
  3313.   MdcToggleButtonEvents = dispinterface
  3314.     ['{8BD21D62-EC42-11CE-9E0D-00AA006002F3}']
  3315.     procedure BeforeDragOver(const Cancel: ReturnBoolean; const Data: DataObject; X, Y: Single; DragState: fmDragState; const Effect: ReturnEffect; Shift: Smallint); dispid 3;
  3316.     procedure BeforeDropOrPaste(const Cancel: ReturnBoolean; Action: fmAction; const Data: DataObject; X, Y: Single; const Effect: ReturnEffect; Shift: Smallint); dispid 4;
  3317.     procedure Change; dispid 2;
  3318.     procedure Click; dispid -610;
  3319.     procedure DblClick(const Cancel: ReturnBoolean); dispid -601;
  3320.     procedure Error(Number: Smallint; const Description: ReturnString; SCode: Integer; const Source, HelpFile: WideString; HelpContext: Integer; const CancelDisplay: ReturnBoolean); dispid -608;
  3321.     procedure KeyDown(const KeyCode: ReturnInteger; Shift: Smallint); dispid -602;
  3322.     procedure KeyPress(const KeyAscii: ReturnInteger); dispid -603;
  3323.     procedure KeyUp(const KeyCode: ReturnInteger; Shift: Smallint); dispid -604;
  3324.     procedure MouseDown(Button, Shift: Smallint; X, Y: Single); dispid -605;
  3325.     procedure MouseMove(Button, Shift: Smallint; X, Y: Single); dispid -606;
  3326.     procedure MouseUp(Button, Shift: Smallint; X, Y: Single); dispid -607;
  3327.   end;
  3328.  
  3329.   ScrollbarEvents = dispinterface
  3330.     ['{7B020EC2-AF6C-11CE-9F46-00AA00574A4F}']
  3331.     procedure BeforeDragOver(const Cancel: ReturnBoolean; const Data: DataObject; X, Y: Single; DragState: fmDragState; const Effect: ReturnEffect; Shift: Smallint); dispid 3;
  3332.     procedure BeforeDropOrPaste(const Cancel: ReturnBoolean; Action: fmAction; const Data: DataObject; X, Y: Single; const Effect: ReturnEffect; Shift: Smallint); dispid 4;
  3333.     procedure Change; dispid 2;
  3334.     procedure Error(Number: Smallint; const Description: ReturnString; SCode: Integer; const Source, HelpFile: WideString; HelpContext: Integer; const CancelDisplay: ReturnBoolean); dispid -608;
  3335.     procedure KeyDown(const KeyCode: ReturnInteger; Shift: Smallint); dispid -602;
  3336.     procedure KeyPress(const KeyAscii: ReturnInteger); dispid -603;
  3337.     procedure KeyUp(const KeyCode: ReturnInteger; Shift: Smallint); dispid -604;
  3338.     procedure Scroll; dispid 7;
  3339.   end;
  3340.  
  3341.   TabStripEvents = dispinterface
  3342.     ['{7B020EC7-AF6C-11CE-9F46-00AA00574A4F}']
  3343.     procedure BeforeDragOver(Index: Integer; const Cancel: ReturnBoolean; const Data: DataObject; X, Y: Single; DragState: fmDragState; const Effect: ReturnEffect; Shift: Smallint); dispid 3;
  3344.     procedure BeforeDropOrPaste(Index: Integer; const Cancel: ReturnBoolean; Action: fmAction; const Data: DataObject; X, Y: Single; const Effect: ReturnEffect; Shift: Smallint); dispid 4;
  3345.     procedure Change; dispid 2;
  3346.     procedure Click(Index: Integer); dispid -600;
  3347.     procedure DblClick(Index: Integer; const Cancel: ReturnBoolean); dispid -601;
  3348.     procedure Error(Number: Smallint; const Description: ReturnString; SCode: Integer; const Source, HelpFile: WideString; HelpContext: Integer; const CancelDisplay: ReturnBoolean); dispid -608;
  3349.     procedure KeyDown(const KeyCode: ReturnInteger; Shift: Smallint); dispid -602;
  3350.     procedure KeyPress(const KeyAscii: ReturnInteger); dispid -603;
  3351.     procedure KeyUp(const KeyCode: ReturnInteger; Shift: Smallint); dispid -604;
  3352.     procedure MouseDown(Index: Integer; Button, Shift: Smallint; X, Y: Single); dispid -605;
  3353.     procedure MouseMove(Index: Integer; Button, Shift: Smallint; X, Y: Single); dispid -606;
  3354.     procedure MouseUp(Index: Integer; Button, Shift: Smallint; X, Y: Single); dispid -607;
  3355.   end;
  3356.  
  3357.   SpinbuttonEvents = dispinterface
  3358.     ['{79176FB2-B7F2-11CE-97EF-00AA006D2776}']
  3359.     procedure BeforeDragOver(const Cancel: ReturnBoolean; const Data: DataObject; X, Y: Single; DragState: fmDragState; const Effect: ReturnEffect; Shift: Smallint); dispid 3;
  3360.     procedure BeforeDropOrPaste(const Cancel: ReturnBoolean; Action: fmAction; const Data: DataObject; X, Y: Single; const Effect: ReturnEffect; Shift: Smallint); dispid 4;
  3361.     procedure Change; dispid 2;
  3362.     procedure Error(Number: Smallint; const Description: ReturnString; SCode: Integer; const Source, HelpFile: WideString; HelpContext: Integer; const CancelDisplay: ReturnBoolean); dispid -608;
  3363.     procedure KeyDown(const KeyCode: ReturnInteger; Shift: Smallint); dispid -602;
  3364.     procedure KeyPress(const KeyAscii: ReturnInteger); dispid -603;
  3365.     procedure KeyUp(const KeyCode: ReturnInteger; Shift: Smallint); dispid -604;
  3366.     procedure SpinUp; dispid 5;
  3367.     procedure SpinDown; dispid 6;
  3368.   end;
  3369.  
  3370.   ImageEvents = dispinterface
  3371.     ['{4C5992A5-6926-101B-9992-00000B65C6F9}']
  3372.     procedure BeforeDragOver(const Cancel: ReturnBoolean; const Data: DataObject; X, Y: Single; DragState: fmDragState; const Effect: ReturnEffect; Shift: Smallint); dispid 3;
  3373.     procedure BeforeDropOrPaste(const Cancel: ReturnBoolean; Action: fmAction; const Data: DataObject; X, Y: Single; const Effect: ReturnEffect; Shift: Smallint); dispid 4;
  3374.     procedure Click; dispid -600;
  3375.     procedure DblClick(const Cancel: ReturnBoolean); dispid -601;
  3376.     procedure Error(Number: Smallint; const Description: ReturnString; SCode: Integer; const Source, HelpFile: WideString; HelpContext: Integer; const CancelDisplay: ReturnBoolean); dispid -608;
  3377.     procedure MouseDown(Button, Shift: Smallint; X, Y: Single); dispid -605;
  3378.     procedure MouseMove(Button, Shift: Smallint; X, Y: Single); dispid -606;
  3379.     procedure MouseUp(Button, Shift: Smallint; X, Y: Single); dispid -607;
  3380.   end;
  3381.  
  3382.   WHTMLControlEvents = dispinterface
  3383.     ['{796ED650-5FE9-11CF-8D68-00AA00BDCE1D}']
  3384.     procedure Click; dispid -600;
  3385.   end;
  3386.  
  3387.   WHTMLControlEvents1 = dispinterface
  3388.     ['{47FF8FE0-6198-11CF-8CE8-00AA006CB389}']
  3389.     procedure Click; dispid -600;
  3390.   end;
  3391.  
  3392.   WHTMLControlEvents2 = dispinterface
  3393.     ['{47FF8FE1-6198-11CF-8CE8-00AA006CB389}']
  3394.     procedure Click; dispid -600;
  3395.   end;
  3396.  
  3397.   WHTMLControlEvents3 = dispinterface
  3398.     ['{47FF8FE2-6198-11CF-8CE8-00AA006CB389}']
  3399.     procedure Click; dispid -600;
  3400.   end;
  3401.  
  3402.   WHTMLControlEvents4 = dispinterface
  3403.     ['{47FF8FE3-6198-11CF-8CE8-00AA006CB389}']
  3404.     procedure Click; dispid -600;
  3405.   end;
  3406.  
  3407.   WHTMLControlEvents5 = dispinterface
  3408.     ['{47FF8FE4-6198-11CF-8CE8-00AA006CB389}']
  3409.     procedure Click; dispid -600;
  3410.   end;
  3411.  
  3412.   WHTMLControlEvents6 = dispinterface
  3413.     ['{47FF8FE5-6198-11CF-8CE8-00AA006CB389}']
  3414.     procedure Click; dispid -600;
  3415.   end;
  3416.  
  3417.   WHTMLControlEvents7 = dispinterface
  3418.     ['{47FF8FE6-6198-11CF-8CE8-00AA006CB389}']
  3419.     procedure Click; dispid -600;
  3420.   end;
  3421.  
  3422.   WHTMLControlEvents9 = dispinterface
  3423.     ['{47FF8FE8-6198-11CF-8CE8-00AA006CB389}']
  3424.     procedure Click; dispid -600;
  3425.   end;
  3426.  
  3427.   WHTMLControlEvents10 = dispinterface
  3428.     ['{47FF8FE9-6198-11CF-8CE8-00AA006CB389}']
  3429.     procedure Click; dispid -600;
  3430.   end;
  3431.  
  3432.   IPage = interface(IDispatch)
  3433.     ['{5CEF5613-713D-11CE-80C9-00AA00611080}']
  3434.     function Get_Controls: Controls; safecall;
  3435.     function Get_Selected: Controls; safecall;
  3436.     function Get_ActiveControl: Control; safecall;
  3437.     function Get_CanPaste: WordBool; safecall;
  3438.     function Get_CanRedo: WordBool; safecall;
  3439.     function Get_CanUndo: WordBool; safecall;
  3440.     procedure Set_Cycle(Value: fmCycle); safecall;
  3441.     function Get_Cycle: fmCycle; safecall;
  3442.     procedure Set_Caption(const Value: WideString); safecall;
  3443.     function Get_Caption: WideString; safecall;
  3444.     procedure Set_ControlTipText(const Value: WideString); safecall;
  3445.     function Get_ControlTipText: WideString; safecall;
  3446.     procedure Set_Enabled(Value: WordBool); safecall;
  3447.     function Get_Enabled: WordBool; safecall;
  3448.     procedure Set_Index(Value: Integer); safecall;
  3449.     function Get_Index: Integer; safecall;
  3450.     procedure _GetInsideHeight(out InsideHeight: Integer); safecall;
  3451.     function Get_InsideHeight: Single; safecall;
  3452.     procedure _GetInsideWidth(out InsideWidth: Integer); safecall;
  3453.     function Get_InsideWidth: Single; safecall;
  3454.     procedure Set_KeepScrollBarsVisible(Value: fmScrollBars); safecall;
  3455.     function Get_KeepScrollBarsVisible: fmScrollBars; safecall;
  3456.     procedure Set_Name(const Value: WideString); safecall;
  3457.     function Get_Name: WideString; safecall;
  3458.     procedure Set_PictureAlignment(Value: fmPictureAlignment); safecall;
  3459.     function Get_PictureAlignment: fmPictureAlignment; safecall;
  3460.     procedure _Set_Picture(const Value: Picture); safecall;
  3461.     procedure Set_Picture(var Value: Picture); safecall;
  3462.     function Get_Picture: Picture; safecall;
  3463.     procedure Set_PictureSizeMode(Value: fmPictureSizeMode); safecall;
  3464.     function Get_PictureSizeMode: fmPictureSizeMode; safecall;
  3465.     procedure Set_PictureTiling(Value: WordBool); safecall;
  3466.     function Get_PictureTiling: WordBool; safecall;
  3467.     procedure Set_ScrollBars(Value: fmScrollBars); safecall;
  3468.     function Get_ScrollBars: fmScrollBars; safecall;
  3469.     procedure _SetScrollHeight(ScrollHeight: Integer); safecall;
  3470.     procedure _GetScrollHeight(out ScrollHeight: Integer); safecall;
  3471.     procedure Set_ScrollHeight(Value: Single); safecall;
  3472.     function Get_ScrollHeight: Single; safecall;
  3473.     procedure _SetScrollLeft(ScrollLeft: Integer); safecall;
  3474.     procedure _GetScrollLeft(out ScrollLeft: Integer); safecall;
  3475.     procedure Set_ScrollLeft(Value: Single); safecall;
  3476.     function Get_ScrollLeft: Single; safecall;
  3477.     procedure _SetScrollTop(ScrollTop: Integer); safecall;
  3478.     procedure _GetScrollTop(out ScrollTop: Integer); safecall;
  3479.     procedure Set_ScrollTop(Value: Single); safecall;
  3480.     function Get_ScrollTop: Single; safecall;
  3481.     procedure _SetScrollWidth(ScrollWidth: Integer); safecall;
  3482.     procedure _GetScrollWidth(out ScrollWidth: Integer); safecall;
  3483.     procedure Set_ScrollWidth(Value: Single); safecall;
  3484.     function Get_ScrollWidth: Single; safecall;
  3485.     procedure Set_Tag(const Value: WideString); safecall;
  3486.     function Get_Tag: WideString; safecall;
  3487.     procedure Set_TransitionEffect(Value: fmTransitionEffect); safecall;
  3488.     function Get_TransitionEffect: fmTransitionEffect; safecall;
  3489.     procedure Set_TransitionPeriod(Value: Integer); safecall;
  3490.     function Get_TransitionPeriod: Integer; safecall;
  3491.     procedure Set_VerticalScrollBarSide(Value: fmVerticalScrollBarSide); safecall;
  3492.     function Get_VerticalScrollBarSide: fmVerticalScrollBarSide; safecall;
  3493.     procedure Set_Visible(Value: WordBool); safecall;
  3494.     function Get_Visible: WordBool; safecall;
  3495.     procedure Set_Zoom(Value: Smallint); safecall;
  3496.     function Get_Zoom: Smallint; safecall;
  3497.     procedure Set_DesignMode(Value: fmMode); safecall;
  3498.     function Get_DesignMode: fmMode; safecall;
  3499.     procedure Set_ShowToolbox(Value: fmMode); safecall;
  3500.     function Get_ShowToolbox: fmMode; safecall;
  3501.     procedure Set_ShowGridDots(Value: fmMode); safecall;
  3502.     function Get_ShowGridDots: fmMode; safecall;
  3503.     procedure Set_SnapToGrid(Value: fmMode); safecall;
  3504.     function Get_SnapToGrid: fmMode; safecall;
  3505.     procedure Set_GridX(Value: Single); safecall;
  3506.     function Get_GridX: Single; safecall;
  3507.     procedure _SetGridX(GridX: Integer); safecall;
  3508.     procedure _GetGridX(out GridX: Integer); safecall;
  3509.     procedure Set_GridY(Value: Single); safecall;
  3510.     function Get_GridY: Single; safecall;
  3511.     procedure _SetGridY(GridY: Integer); safecall;
  3512.     procedure _GetGridY(out GridY: Integer); safecall;
  3513.     procedure Copy; safecall;
  3514.     procedure Cut; safecall;
  3515.     procedure Paste; safecall;
  3516.     procedure RedoAction; safecall;
  3517.     procedure Repaint; safecall;
  3518.     procedure Scroll(xAction, yAction: OleVariant); safecall;
  3519.     procedure SetDefaultTabOrder; safecall;
  3520.     procedure UndoAction; safecall;
  3521.     procedure Set_Accelerator(const Value: WideString); safecall;
  3522.     function Get_Accelerator: WideString; safecall;
  3523.     function Get_Parent: IDispatch; safecall;
  3524.     property Controls: Controls read Get_Controls;
  3525.     property Selected: Controls read Get_Selected;
  3526.     property ActiveControl: Control read Get_ActiveControl;
  3527.     property CanPaste: WordBool read Get_CanPaste;
  3528.     property CanRedo: WordBool read Get_CanRedo;
  3529.     property CanUndo: WordBool read Get_CanUndo;
  3530.     property Cycle: fmCycle read Get_Cycle write Set_Cycle;
  3531.     property Caption: WideString read Get_Caption write Set_Caption;
  3532.     property ControlTipText: WideString read Get_ControlTipText write Set_ControlTipText;
  3533.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  3534.     property Index: Integer read Get_Index write Set_Index;
  3535.     property InsideHeight: Single read Get_InsideHeight;
  3536.     property InsideWidth: Single read Get_InsideWidth;
  3537.     property KeepScrollBarsVisible: fmScrollBars read Get_KeepScrollBarsVisible write Set_KeepScrollBarsVisible;
  3538.     property Name: WideString read Get_Name write Set_Name;
  3539.     property PictureAlignment: fmPictureAlignment read Get_PictureAlignment write Set_PictureAlignment;
  3540.     property Picture: Picture read Get_Picture write Set_Picture;
  3541.     property PictureSizeMode: fmPictureSizeMode read Get_PictureSizeMode write Set_PictureSizeMode;
  3542.     property PictureTiling: WordBool read Get_PictureTiling write Set_PictureTiling;
  3543.     property ScrollBars: fmScrollBars read Get_ScrollBars write Set_ScrollBars;
  3544.     property ScrollHeight: Single read Get_ScrollHeight write Set_ScrollHeight;
  3545.     property ScrollLeft: Single read Get_ScrollLeft write Set_ScrollLeft;
  3546.     property ScrollTop: Single read Get_ScrollTop write Set_ScrollTop;
  3547.     property ScrollWidth: Single read Get_ScrollWidth write Set_ScrollWidth;
  3548.     property Tag: WideString read Get_Tag write Set_Tag;
  3549.     property TransitionEffect: fmTransitionEffect read Get_TransitionEffect write Set_TransitionEffect;
  3550.     property TransitionPeriod: Integer read Get_TransitionPeriod write Set_TransitionPeriod;
  3551.     property VerticalScrollBarSide: fmVerticalScrollBarSide read Get_VerticalScrollBarSide write Set_VerticalScrollBarSide;
  3552.     property Visible: WordBool read Get_Visible write Set_Visible;
  3553.     property Zoom: Smallint read Get_Zoom write Set_Zoom;
  3554.     property DesignMode: fmMode read Get_DesignMode write Set_DesignMode;
  3555.     property ShowToolbox: fmMode read Get_ShowToolbox write Set_ShowToolbox;
  3556.     property ShowGridDots: fmMode read Get_ShowGridDots write Set_ShowGridDots;
  3557.     property SnapToGrid: fmMode read Get_SnapToGrid write Set_SnapToGrid;
  3558.     property GridX: Single read Get_GridX write Set_GridX;
  3559.     property GridY: Single read Get_GridY write Set_GridY;
  3560.     property Accelerator: WideString read Get_Accelerator write Set_Accelerator;
  3561.     property Parent: IDispatch read Get_Parent;
  3562.   end;
  3563.  
  3564. { DispInterface declaration for Dual Interface IPage }
  3565.  
  3566.   IPageDisp = dispinterface
  3567.     ['{5CEF5613-713D-11CE-80C9-00AA00611080}']
  3568.     property Controls: Controls readonly dispid 0;
  3569.     property Selected: Controls readonly dispid 270;
  3570.     property ActiveControl: Control readonly dispid 256;
  3571.     property CanPaste: WordBool readonly dispid 257;
  3572.     property CanRedo: WordBool readonly dispid 258;
  3573.     property CanUndo: WordBool readonly dispid 259;
  3574.     property Cycle: fmCycle dispid 260;
  3575.     property Caption: WideString dispid -518;
  3576.     property ControlTipText: WideString dispid -2147418043;
  3577.     property Enabled: WordBool dispid -514;
  3578.     property Index: Integer dispid -2147356416;
  3579.     procedure _GetInsideHeight(out InsideHeight: Integer); dispid 1610743824;
  3580.     property InsideHeight: Single readonly dispid 262;
  3581.     procedure _GetInsideWidth(out InsideWidth: Integer); dispid 1610743826;
  3582.     property InsideWidth: Single readonly dispid 263;
  3583.     property KeepScrollBarsVisible: fmScrollBars dispid 264;
  3584.     property Name: WideString dispid -2147418112;
  3585.     property PictureAlignment: fmPictureAlignment dispid 26;
  3586.     property Picture: Picture dispid -523;
  3587.     property PictureSizeMode: fmPictureSizeMode dispid 27;
  3588.     property PictureTiling: WordBool dispid 28;
  3589.     property ScrollBars: fmScrollBars dispid 265;
  3590.     procedure _SetScrollHeight(ScrollHeight: Integer); dispid 1610743843;
  3591.     procedure _GetScrollHeight(out ScrollHeight: Integer); dispid 1610743844;
  3592.     property ScrollHeight: Single dispid 266;
  3593.     procedure _SetScrollLeft(ScrollLeft: Integer); dispid 1610743847;
  3594.     procedure _GetScrollLeft(out ScrollLeft: Integer); dispid 1610743848;
  3595.     property ScrollLeft: Single dispid 267;
  3596.     procedure _SetScrollTop(ScrollTop: Integer); dispid 1610743851;
  3597.     procedure _GetScrollTop(out ScrollTop: Integer); dispid 1610743852;
  3598.     property ScrollTop: Single dispid 268;
  3599.     procedure _SetScrollWidth(ScrollWidth: Integer); dispid 1610743855;
  3600.     procedure _GetScrollWidth(out ScrollWidth: Integer); dispid 1610743856;
  3601.     property ScrollWidth: Single dispid 269;
  3602.     property Tag: WideString dispid -2147418101;
  3603.     property TransitionEffect: fmTransitionEffect dispid -2147356415;
  3604.     property TransitionPeriod: Integer dispid -2147356414;
  3605.     property VerticalScrollBarSide: fmVerticalScrollBarSide dispid 271;
  3606.     property Visible: WordBool dispid -2147418105;
  3607.     property Zoom: Smallint dispid 272;
  3608.     property DesignMode: fmMode dispid 384;
  3609.     property ShowToolbox: fmMode dispid 385;
  3610.     property ShowGridDots: fmMode dispid 386;
  3611.     property SnapToGrid: fmMode dispid 387;
  3612.     property GridX: Single dispid 388;
  3613.     procedure _SetGridX(GridX: Integer); dispid 1610743881;
  3614.     procedure _GetGridX(out GridX: Integer); dispid 1610743882;
  3615.     property GridY: Single dispid 389;
  3616.     procedure _SetGridY(GridY: Integer); dispid 1610743885;
  3617.     procedure _GetGridY(out GridY: Integer); dispid 1610743886;
  3618.     procedure Copy; dispid 512;
  3619.     procedure Cut; dispid 513;
  3620.     procedure Paste; dispid 514;
  3621.     procedure RedoAction; dispid 515;
  3622.     procedure Repaint; dispid 516;
  3623.     procedure Scroll(xAction, yAction: OleVariant); dispid 517;
  3624.     procedure SetDefaultTabOrder; dispid 518;
  3625.     procedure UndoAction; dispid 519;
  3626.     property Accelerator: WideString dispid -543;
  3627.     property Parent: IDispatch readonly dispid -2147418104;
  3628.   end;
  3629.  
  3630.   Pages = interface(IDispatch)
  3631.     ['{92E11A03-7358-11CE-80CB-00AA00611080}']
  3632.     function Get_Count: Integer; safecall;
  3633.     function Get__NewEnum: IUnknown; safecall;
  3634.     function Item(varg: OleVariant): IDispatch; safecall;
  3635.     function Enum: IUnknown; safecall;
  3636.     function Add(bstrName, bstrCaption, lIndex: OleVariant): Page; safecall;
  3637.     function _AddCtrl(var clsid: Integer; const bstrName, bstrCaption: WideString): Page; safecall;
  3638.     function _InsertCtrl(var clsid: Integer; const bstrName, bstrCaption: WideString; lIndex: Integer): Page; safecall;
  3639.     function _GetItemByIndex(lIndex: Integer): Control; safecall;
  3640.     function _GetItemByName(const pstrName: WideString): Control; safecall;
  3641.     procedure Remove(varg: OleVariant); safecall;
  3642.     procedure Clear; safecall;
  3643.     property Count: Integer read Get_Count;
  3644.     property _NewEnum: IUnknown read Get__NewEnum;
  3645.   end;
  3646.  
  3647. { DispInterface declaration for Dual Interface Pages }
  3648.  
  3649.   PagesDisp = dispinterface
  3650.     ['{92E11A03-7358-11CE-80CB-00AA00611080}']
  3651.     property Count: Integer readonly dispid 60;
  3652.     property _NewEnum: IUnknown readonly dispid -4;
  3653.     function Item(varg: OleVariant): IDispatch; dispid 0;
  3654.     function Enum: IUnknown; dispid 1610743811;
  3655.     function Add(bstrName, bstrCaption, lIndex: OleVariant): Page; dispid 66;
  3656.     function _AddCtrl(var clsid: Integer; const bstrName, bstrCaption: WideString): Page; dispid 1610743813;
  3657.     function _InsertCtrl(var clsid: Integer; const bstrName, bstrCaption: WideString; lIndex: Integer): Page; dispid 1610743814;
  3658.     function _GetItemByIndex(lIndex: Integer): Control; dispid 1610743815;
  3659.     function _GetItemByName(const pstrName: WideString): Control; dispid 1610743816;
  3660.     procedure Remove(varg: OleVariant); dispid 67;
  3661.     procedure Clear; dispid 62;
  3662.   end;
  3663.  
  3664.   IMultiPage = interface(IDispatch)
  3665.     ['{04598FC9-866C-11CF-AB7C-00AA00C08FCF}']
  3666.     procedure Set_BackColor(Value: TColor); safecall;
  3667.     function Get_BackColor: TColor; safecall;
  3668.     procedure Set_ForeColor(Value: TColor); safecall;
  3669.     function Get_ForeColor: TColor; safecall;
  3670.     procedure Set__Font_Reserved(const Value: Font); safecall;
  3671.     procedure Set_Font(var Value: Font); safecall;
  3672.     function Get_Font: Font; safecall;
  3673.     procedure Set_FontName(const Value: WideString); safecall;
  3674.     function Get_FontName: WideString; safecall;
  3675.     procedure Set_FontBold(Value: WordBool); safecall;
  3676.     function Get_FontBold: WordBool; safecall;
  3677.     procedure Set_FontItalic(Value: WordBool); safecall;
  3678.     function Get_FontItalic: WordBool; safecall;
  3679.     procedure Set_FontUnderline(Value: WordBool); safecall;
  3680.     function Get_FontUnderline: WordBool; safecall;
  3681.     procedure Set_FontStrikethru(Value: WordBool); safecall;
  3682.     function Get_FontStrikethru: WordBool; safecall;
  3683.     procedure Set_FontSize(Value: Currency); safecall;
  3684.     function Get_FontSize: Currency; safecall;
  3685.     procedure Set_MultiRow(Value: WordBool); safecall;
  3686.     function Get_MultiRow: WordBool; safecall;
  3687.     procedure Set_Style(Value: fmTabStyle); safecall;
  3688.     function Get_Style: fmTabStyle; safecall;
  3689.     procedure Set_TabOrientation(Value: fmTabOrientation); safecall;
  3690.     function Get_TabOrientation: fmTabOrientation; safecall;
  3691.     procedure _SetTabFixedWidth(Width: Integer); safecall;
  3692.     procedure _GetTabFixedWidth(out Width: Integer); safecall;
  3693.     procedure _SetTabFixedHeight(Height: Integer); safecall;
  3694.     procedure _GetTabFixedHeight(out Height: Integer); safecall;
  3695.     procedure Set_Enabled(Value: WordBool); safecall;
  3696.     function Get_Enabled: WordBool; safecall;
  3697.     function Get_SelectedItem: Page; safecall;
  3698.     function Get_Pages: Pages; safecall;
  3699.     procedure Set_Value(Value: Integer); safecall;
  3700.     function Get_Value: Integer; safecall;
  3701.     procedure Set_TabFixedWidth(Value: Single); safecall;
  3702.     function Get_TabFixedWidth: Single; safecall;
  3703.     procedure Set_TabFixedHeight(Value: Single); safecall;
  3704.     function Get_TabFixedHeight: Single; safecall;
  3705.     procedure Set_FontWeight(Value: Smallint); safecall;
  3706.     function Get_FontWeight: Smallint; safecall;
  3707.     property BackColor: TColor read Get_BackColor write Set_BackColor;
  3708.     property ForeColor: TColor read Get_ForeColor write Set_ForeColor;
  3709.     property _Font_Reserved: Font write Set__Font_Reserved;
  3710.     property Font: Font read Get_Font write Set_Font;
  3711.     property FontName: WideString read Get_FontName write Set_FontName;
  3712.     property FontBold: WordBool read Get_FontBold write Set_FontBold;
  3713.     property FontItalic: WordBool read Get_FontItalic write Set_FontItalic;
  3714.     property FontUnderline: WordBool read Get_FontUnderline write Set_FontUnderline;
  3715.     property FontStrikethru: WordBool read Get_FontStrikethru write Set_FontStrikethru;
  3716.     property FontSize: Currency read Get_FontSize write Set_FontSize;
  3717.     property MultiRow: WordBool read Get_MultiRow write Set_MultiRow;
  3718.     property Style: fmTabStyle read Get_Style write Set_Style;
  3719.     property TabOrientation: fmTabOrientation read Get_TabOrientation write Set_TabOrientation;
  3720.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  3721.     property SelectedItem: Page read Get_SelectedItem;
  3722.     property Pages: Pages read Get_Pages;
  3723.     property Value: Integer read Get_Value write Set_Value;
  3724.     property TabFixedWidth: Single read Get_TabFixedWidth write Set_TabFixedWidth;
  3725.     property TabFixedHeight: Single read Get_TabFixedHeight write Set_TabFixedHeight;
  3726.     property FontWeight: Smallint read Get_FontWeight write Set_FontWeight;
  3727.   end;
  3728.  
  3729. { DispInterface declaration for Dual Interface IMultiPage }
  3730.  
  3731.   IMultiPageDisp = dispinterface
  3732.     ['{04598FC9-866C-11CF-AB7C-00AA00C08FCF}']
  3733.     property BackColor: TColor dispid -501;
  3734.     property ForeColor: TColor dispid -513;
  3735.     property _Font_Reserved: Font writeonly dispid 2147483135;
  3736.     property Font: Font dispid -512;
  3737.     property FontName: WideString dispid 1;
  3738.     property FontBold: WordBool dispid 3;
  3739.     property FontItalic: WordBool dispid 4;
  3740.     property FontUnderline: WordBool dispid 5;
  3741.     property FontStrikethru: WordBool dispid 6;
  3742.     property FontSize: Currency dispid 2;
  3743.     property MultiRow: WordBool dispid 514;
  3744.     property Style: fmTabStyle dispid 513;
  3745.     property TabOrientation: fmTabOrientation dispid 512;
  3746.     procedure _SetTabFixedWidth(Width: Integer); dispid 1610743833;
  3747.     procedure _GetTabFixedWidth(out Width: Integer); dispid 1610743834;
  3748.     procedure _SetTabFixedHeight(Height: Integer); dispid 1610743835;
  3749.     procedure _GetTabFixedHeight(out Height: Integer); dispid 1610743836;
  3750.     property Enabled: WordBool dispid -514;
  3751.     property SelectedItem: Page readonly dispid 545;
  3752.     property Pages: Pages readonly dispid 0;
  3753.     property Value: Integer dispid 528;
  3754.     property TabFixedWidth: Single dispid 515;
  3755.     property TabFixedHeight: Single dispid 516;
  3756.     property FontWeight: Smallint dispid 7;
  3757.   end;
  3758.  
  3759.   MultiPageEvents = dispinterface
  3760.     ['{7B020EC8-AF6C-11CE-9F46-00AA00574A4F}']
  3761.     procedure AddControl(Index: Integer; const Control: Control); dispid 768;
  3762.     procedure BeforeDragOver(Index: Integer; const Cancel: ReturnBoolean; const Control: Control; const Data: DataObject; X, Y: Single; State: fmDragState; const Effect: ReturnEffect; Shift: Smallint); dispid 3;
  3763.     procedure BeforeDropOrPaste(Index: Integer; const Cancel: ReturnBoolean; const Control: Control; Action: fmAction; const Data: DataObject; X, Y: Single; const Effect: ReturnEffect; Shift: Smallint); dispid 4;
  3764.     procedure Change; dispid 2;
  3765.     procedure Click(Index: Integer); dispid -600;
  3766.     procedure DblClick(Index: Integer; const Cancel: ReturnBoolean); dispid -601;
  3767.     procedure Error(Index: Integer; Number: Smallint; const Description: ReturnString; SCode: Integer; const Source, HelpFile: WideString; HelpContext: Integer; const CancelDisplay: ReturnBoolean); dispid -608;
  3768.     procedure KeyDown(const KeyCode: ReturnInteger; Shift: Smallint); dispid -602;
  3769.     procedure KeyPress(const KeyAscii: ReturnInteger); dispid -603;
  3770.     procedure KeyUp(const KeyCode: ReturnInteger; Shift: Smallint); dispid -604;
  3771.     procedure Layout(Index: Integer); dispid 770;
  3772.     procedure MouseDown(Index: Integer; Button, Shift: Smallint; X, Y: Single); dispid -605;
  3773.     procedure MouseMove(Index: Integer; Button, Shift: Smallint; X, Y: Single); dispid -606;
  3774.     procedure MouseUp(Index: Integer; Button, Shift: Smallint; X, Y: Single); dispid -607;
  3775.     procedure RemoveControl(Index: Integer; const Control: Control); dispid 771;
  3776.     procedure Scroll(Index: Integer; ActionX, ActionY: fmScrollAction; RequestDx, RequestDy: Single; const ActualDx, ActualDy: ReturnSingle); dispid 772;
  3777.     procedure Zoom(Index: Integer; var Percent: Smallint); dispid 773;
  3778.   end;
  3779.  
  3780.   CoReturnInteger = class
  3781.     class function Create: IReturnInteger;
  3782.     class function CreateRemote(const MachineName: string): IReturnInteger;
  3783.   end;
  3784.  
  3785.   CoReturnBoolean = class
  3786.     class function Create: IReturnBoolean;
  3787.     class function CreateRemote(const MachineName: string): IReturnBoolean;
  3788.   end;
  3789.  
  3790.   CoReturnString = class
  3791.     class function Create: IReturnString;
  3792.     class function CreateRemote(const MachineName: string): IReturnString;
  3793.   end;
  3794.  
  3795.   CoReturnSingle = class
  3796.     class function Create: IReturnSingle;
  3797.     class function CreateRemote(const MachineName: string): IReturnSingle;
  3798.   end;
  3799.  
  3800.   CoReturnEffect = class
  3801.     class function Create: IReturnEffect;
  3802.     class function CreateRemote(const MachineName: string): IReturnEffect;
  3803.   end;
  3804.  
  3805.   CoDataObject = class
  3806.     class function Create: IDataAutoWrapper;
  3807.     class function CreateRemote(const MachineName: string): IDataAutoWrapper;
  3808.   end;
  3809.  
  3810.   CoControl = class
  3811.     class function Create: IControl;
  3812.     class function CreateRemote(const MachineName: string): IControl;
  3813.   end;
  3814.  
  3815.   CoNewFont = class
  3816.     class function Create: Font;
  3817.     class function CreateRemote(const MachineName: string): Font;
  3818.   end;
  3819.  
  3820.   CoPage = class
  3821.     class function Create: IPage;
  3822.     class function CreateRemote(const MachineName: string): IPage;
  3823.   end;
  3824.  
  3825.   TUserFormAddControl = procedure(Sender: TObject; const Control: Control) of object;
  3826.   TUserFormBeforeDragOver = procedure(Sender: TObject; const Cancel: ReturnBoolean; const Control: Control; const Data: DataObject; X, Y: Single; State: fmDragState; const Effect: ReturnEffect; Shift: Smallint) of object;
  3827.   TUserFormBeforeDropOrPaste = procedure(Sender: TObject; const Cancel: ReturnBoolean; const Control: Control; Action: fmAction; const Data: DataObject; X, Y: Single; const Effect: ReturnEffect; Shift: Smallint) of object;
  3828.   TUserFormError = procedure(Sender: TObject; Number: Smallint; const Description: ReturnString; SCode: Integer; const Source, HelpFile: WideString; HelpContext: Integer; const CancelDisplay: ReturnBoolean) of object;
  3829.   TUserFormRemoveControl = procedure(Sender: TObject; const Control: Control) of object;
  3830.   TUserFormScroll = procedure(Sender: TObject; ActionX, ActionY: fmScrollAction; RequestDx, RequestDy: Single; const ActualDx, ActualDy: ReturnSingle) of object;
  3831.   TUserFormZoom = procedure(Sender: TObject; var Percent: Smallint) of object;
  3832.  
  3833.   TUserForm = class(TOleControl)
  3834.   private
  3835.     FOnAddControl: TUserFormAddControl;
  3836.     FOnBeforeDragOver: TUserFormBeforeDragOver;
  3837.     FOnBeforeDropOrPaste: TUserFormBeforeDropOrPaste;
  3838.     FOnError: TUserFormError;
  3839.     FOnLayout: TNotifyEvent;
  3840.     FOnRemoveControl: TUserFormRemoveControl;
  3841.     FOnScroll: TUserFormScroll;
  3842.     FOnZoom: TUserFormZoom;
  3843.     FIntf: _UserForm;
  3844.     function GetControlInterface: _UserForm;
  3845.     function Get_ActiveControl: Control;
  3846.     function Get_Controls: Controls;
  3847.     function Get_Selected: Controls;
  3848.   protected
  3849.     procedure CreateControl;
  3850.     procedure InitControlData; override;
  3851.     function GetTOleEnumProp(Index: Integer): TOleEnum;
  3852.     procedure SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  3853.   public
  3854.     procedure _GetInsideHeight(out InsideHeight: Integer);
  3855.     procedure _GetInsideWidth(out InsideWidth: Integer);
  3856.     procedure _SetScrollHeight(ScrollHeight: Integer);
  3857.     procedure _GetScrollHeight(out ScrollHeight: Integer);
  3858.     procedure _SetScrollLeft(ScrollLeft: Integer);
  3859.     procedure _GetScrollLeft(out ScrollLeft: Integer);
  3860.     procedure _SetScrollTop(ScrollTop: Integer);
  3861.     procedure _GetScrollTop(out ScrollTop: Integer);
  3862.     procedure _SetScrollWidth(ScrollWidth: Integer);
  3863.     procedure _GetScrollWidth(out ScrollWidth: Integer);
  3864.     procedure Copy;
  3865.     procedure Cut;
  3866.     procedure Paste;
  3867.     procedure RedoAction;
  3868.     procedure Repaint;
  3869.     procedure IOptionFrame_Scroll(xAction, yAction: OleVariant);
  3870.     procedure SetDefaultTabOrder;
  3871.     procedure UndoAction;
  3872.     procedure _SetGridX(GridX: Integer);
  3873.     procedure _GetGridX(out GridX: Integer);
  3874.     procedure _SetGridY(GridY: Integer);
  3875.     procedure _GetGridY(out GridY: Integer);
  3876.     property ControlInterface: _UserForm read GetControlInterface;
  3877.     property ActiveControl: Control read Get_ActiveControl;
  3878.     property CanPaste: WordBool index 257 read GetWordBoolProp;
  3879.     property CanRedo: WordBool index 258 read GetWordBoolProp;
  3880.     property CanUndo: WordBool index 259 read GetWordBoolProp;
  3881.     property Controls: Controls read Get_Controls;
  3882.     property _Font_Reserved: TFont index 2147483135 write SetTFontProp;
  3883.     property InsideHeight: Single index 262 read GetSingleProp;
  3884.     property InsideWidth: Single index 263 read GetSingleProp;
  3885.     property Selected: Controls read Get_Selected;
  3886.     property DesignMode: fmMode index 384 read GetTOleEnumProp write SetTOleEnumProp;
  3887.     property ShowToolbox: fmMode index 385 read GetTOleEnumProp write SetTOleEnumProp;
  3888.     property ShowGridDots: fmMode index 386 read GetTOleEnumProp write SetTOleEnumProp;
  3889.     property SnapToGrid: fmMode index 387 read GetTOleEnumProp write SetTOleEnumProp;
  3890.     property GridX: Single index 388 read GetSingleProp write SetSingleProp;
  3891.     property GridY: Single index 389 read GetSingleProp write SetSingleProp;
  3892.   published
  3893.     property BackColor: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  3894.     property BorderColor: TColor index -503 read GetTColorProp write SetTColorProp stored False;
  3895.     property BorderStyle: fmBorderStyle index -504 read GetTOleEnumProp write SetTOleEnumProp stored False;
  3896.     property Caption: WideString index -518 read GetWideStringProp write SetWideStringProp stored False;
  3897.     property Cycle: fmCycle index 260 read GetTOleEnumProp write SetTOleEnumProp stored False;
  3898.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  3899.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  3900.     property ForeColor: TColor index -513 read GetTColorProp write SetTColorProp stored False;
  3901.     property KeepScrollBarsVisible: fmScrollBars index 264 read GetTOleEnumProp write SetTOleEnumProp stored False;
  3902.     property MouseIcon: TPicture index -522 read GetTPictureProp write SetTPictureProp stored False;
  3903.     property MousePointer: fmMousePointer index -521 read GetTOleEnumProp write SetTOleEnumProp stored False;
  3904.     property PictureAlignment: fmPictureAlignment index 26 read GetTOleEnumProp write SetTOleEnumProp stored False;
  3905.     property Picture: TPicture index -523 read GetTPictureProp write SetTPictureProp stored False;
  3906.     property PictureSizeMode: fmPictureSizeMode index 27 read GetTOleEnumProp write SetTOleEnumProp stored False;
  3907.     property PictureTiling: WordBool index 28 read GetWordBoolProp write SetWordBoolProp stored False;
  3908.     property ScrollBars: fmScrollBars index 265 read GetTOleEnumProp write SetTOleEnumProp stored False;
  3909.     property ScrollHeight: Single index 266 read GetSingleProp write SetSingleProp stored False;
  3910.     property ScrollLeft: Single index 267 read GetSingleProp write SetSingleProp stored False;
  3911.     property ScrollTop: Single index 268 read GetSingleProp write SetSingleProp stored False;
  3912.     property ScrollWidth: Single index 269 read GetSingleProp write SetSingleProp stored False;
  3913.     property SpecialEffect: fmSpecialEffect index 12 read GetTOleEnumProp write SetTOleEnumProp stored False;
  3914.     property VerticalScrollBarSide: fmVerticalScrollBarSide index 271 read GetTOleEnumProp write SetTOleEnumProp stored False;
  3915.     property IOptionFrame_Zoom: Smallint index 272 read GetSmallintProp write SetSmallintProp stored False;
  3916.     property DrawBuffer: Integer index 395 read GetIntegerProp write SetIntegerProp stored False;
  3917.     property OnAddControl: TUserFormAddControl read FOnAddControl write FOnAddControl;
  3918.     property OnBeforeDragOver: TUserFormBeforeDragOver read FOnBeforeDragOver write FOnBeforeDragOver;
  3919.     property OnBeforeDropOrPaste: TUserFormBeforeDropOrPaste read FOnBeforeDropOrPaste write FOnBeforeDropOrPaste;
  3920.     property OnError: TUserFormError read FOnError write FOnError;
  3921.     property OnLayout: TNotifyEvent read FOnLayout write FOnLayout;
  3922.     property OnRemoveControl: TUserFormRemoveControl read FOnRemoveControl write FOnRemoveControl;
  3923.     property OnScroll: TUserFormScroll read FOnScroll write FOnScroll;
  3924.     property OnZoom: TUserFormZoom read FOnZoom write FOnZoom;
  3925.   end;
  3926.  
  3927.   TFrameAddControl = procedure(Sender: TObject; const Control: Control) of object;
  3928.   TFrameBeforeDragOver = procedure(Sender: TObject; const Cancel: ReturnBoolean; const Control: Control; const Data: DataObject; X, Y: Single; State: fmDragState; const Effect: ReturnEffect; Shift: Smallint) of object;
  3929.   TFrameBeforeDropOrPaste = procedure(Sender: TObject; const Cancel: ReturnBoolean; const Control: Control; Action: fmAction; const Data: DataObject; X, Y: Single; const Effect: ReturnEffect; Shift: Smallint) of object;
  3930.   TFrameError = procedure(Sender: TObject; Number: Smallint; const Description: ReturnString; SCode: Integer; const Source, HelpFile: WideString; HelpContext: Integer; const CancelDisplay: ReturnBoolean) of object;
  3931.   TFrameRemoveControl = procedure(Sender: TObject; const Control: Control) of object;
  3932.   TFrameScroll = procedure(Sender: TObject; ActionX, ActionY: fmScrollAction; RequestDx, RequestDy: Single; const ActualDx, ActualDy: ReturnSingle) of object;
  3933.   TFrameZoom = procedure(Sender: TObject; var Percent: Smallint) of object;
  3934.  
  3935.   TFrame = class(TOleControl)
  3936.   private
  3937.     FOnAddControl: TFrameAddControl;
  3938.     FOnBeforeDragOver: TFrameBeforeDragOver;
  3939.     FOnBeforeDropOrPaste: TFrameBeforeDropOrPaste;
  3940.     FOnError: TFrameError;
  3941.     FOnLayout: TNotifyEvent;
  3942.     FOnRemoveControl: TFrameRemoveControl;
  3943.     FOnScroll: TFrameScroll;
  3944.     FOnZoom: TFrameZoom;
  3945.     FIntf: IOptionFrame;
  3946.     function GetControlInterface: IOptionFrame;
  3947.     function Get_ActiveControl: Control;
  3948.     function Get_Controls: Controls;
  3949.     function Get_Selected: Controls;
  3950.   protected
  3951.     procedure CreateControl;
  3952.     procedure InitControlData; override;
  3953.     function GetTOleEnumProp(Index: Integer): TOleEnum;
  3954.     procedure SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  3955.   public
  3956.     procedure _GetInsideHeight(out InsideHeight: Integer);
  3957.     procedure _GetInsideWidth(out InsideWidth: Integer);
  3958.     procedure _SetScrollHeight(ScrollHeight: Integer);
  3959.     procedure _GetScrollHeight(out ScrollHeight: Integer);
  3960.     procedure _SetScrollLeft(ScrollLeft: Integer);
  3961.     procedure _GetScrollLeft(out ScrollLeft: Integer);
  3962.     procedure _SetScrollTop(ScrollTop: Integer);
  3963.     procedure _GetScrollTop(out ScrollTop: Integer);
  3964.     procedure _SetScrollWidth(ScrollWidth: Integer);
  3965.     procedure _GetScrollWidth(out ScrollWidth: Integer);
  3966.     procedure Copy;
  3967.     procedure Cut;
  3968.     procedure Paste;
  3969.     procedure RedoAction;
  3970.     procedure Repaint;
  3971.     procedure IOptionFrame_Scroll(xAction, yAction: OleVariant);
  3972.     procedure SetDefaultTabOrder;
  3973.     procedure UndoAction;
  3974.     procedure _SetGridX(GridX: Integer);
  3975.     procedure _GetGridX(out GridX: Integer);
  3976.     procedure _SetGridY(GridY: Integer);
  3977.     procedure _GetGridY(out GridY: Integer);
  3978.     property ControlInterface: IOptionFrame read GetControlInterface;
  3979.     property ActiveControl: Control read Get_ActiveControl;
  3980.     property CanPaste: WordBool index 257 read GetWordBoolProp;
  3981.     property CanRedo: WordBool index 258 read GetWordBoolProp;
  3982.     property CanUndo: WordBool index 259 read GetWordBoolProp;
  3983.     property Controls: Controls read Get_Controls;
  3984.     property _Font_Reserved: TFont index 2147483135 write SetTFontProp;
  3985.     property InsideHeight: Single index 262 read GetSingleProp;
  3986.     property InsideWidth: Single index 263 read GetSingleProp;
  3987.     property Selected: Controls read Get_Selected;
  3988.     property DesignMode: fmMode index 384 read GetTOleEnumProp write SetTOleEnumProp;
  3989.     property ShowToolbox: fmMode index 385 read GetTOleEnumProp write SetTOleEnumProp;
  3990.     property ShowGridDots: fmMode index 386 read GetTOleEnumProp write SetTOleEnumProp;
  3991.     property SnapToGrid: fmMode index 387 read GetTOleEnumProp write SetTOleEnumProp;
  3992.     property GridX: Single index 388 read GetSingleProp write SetSingleProp;
  3993.     property GridY: Single index 389 read GetSingleProp write SetSingleProp;
  3994.   published
  3995.     property BackColor: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  3996.     property BorderColor: TColor index -503 read GetTColorProp write SetTColorProp stored False;
  3997.     property BorderStyle: fmBorderStyle index -504 read GetTOleEnumProp write SetTOleEnumProp stored False;
  3998.     property Caption: WideString index -518 read GetWideStringProp write SetWideStringProp stored False;
  3999.     property Cycle: fmCycle index 260 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4000.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  4001.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  4002.     property ForeColor: TColor index -513 read GetTColorProp write SetTColorProp stored False;
  4003.     property KeepScrollBarsVisible: fmScrollBars index 264 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4004.     property MouseIcon: TPicture index -522 read GetTPictureProp write SetTPictureProp stored False;
  4005.     property MousePointer: fmMousePointer index -521 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4006.     property PictureAlignment: fmPictureAlignment index 26 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4007.     property Picture: TPicture index -523 read GetTPictureProp write SetTPictureProp stored False;
  4008.     property PictureSizeMode: fmPictureSizeMode index 27 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4009.     property PictureTiling: WordBool index 28 read GetWordBoolProp write SetWordBoolProp stored False;
  4010.     property ScrollBars: fmScrollBars index 265 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4011.     property ScrollHeight: Single index 266 read GetSingleProp write SetSingleProp stored False;
  4012.     property ScrollLeft: Single index 267 read GetSingleProp write SetSingleProp stored False;
  4013.     property ScrollTop: Single index 268 read GetSingleProp write SetSingleProp stored False;
  4014.     property ScrollWidth: Single index 269 read GetSingleProp write SetSingleProp stored False;
  4015.     property SpecialEffect: fmSpecialEffect index 12 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4016.     property VerticalScrollBarSide: fmVerticalScrollBarSide index 271 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4017.     property IOptionFrame_Zoom: Smallint index 272 read GetSmallintProp write SetSmallintProp stored False;
  4018.     property OnAddControl: TFrameAddControl read FOnAddControl write FOnAddControl;
  4019.     property OnBeforeDragOver: TFrameBeforeDragOver read FOnBeforeDragOver write FOnBeforeDragOver;
  4020.     property OnBeforeDropOrPaste: TFrameBeforeDropOrPaste read FOnBeforeDropOrPaste write FOnBeforeDropOrPaste;
  4021.     property OnError: TFrameError read FOnError write FOnError;
  4022.     property OnLayout: TNotifyEvent read FOnLayout write FOnLayout;
  4023.     property OnRemoveControl: TFrameRemoveControl read FOnRemoveControl write FOnRemoveControl;
  4024.     property OnScroll: TFrameScroll read FOnScroll write FOnScroll;
  4025.     property OnZoom: TFrameZoom read FOnZoom write FOnZoom;
  4026.   end;
  4027.  
  4028.   TLabel_BeforeDragOver = procedure(Sender: TObject; const Cancel: ReturnBoolean; const Data: DataObject; X, Y: Single; DragState: fmDragState; const Effect: ReturnEffect; Shift: Smallint) of object;
  4029.   TLabel_BeforeDropOrPaste = procedure(Sender: TObject; const Cancel: ReturnBoolean; Action: fmAction; const Data: DataObject; X, Y: Single; const Effect: ReturnEffect; Shift: Smallint) of object;
  4030.   TLabel_Error = procedure(Sender: TObject; Number: Smallint; const Description: ReturnString; SCode: Integer; const Source, HelpFile: WideString; HelpContext: Integer; const CancelDisplay: ReturnBoolean) of object;
  4031.  
  4032.   TLabel_ = class(TOleControl)
  4033.   private
  4034.     FOnBeforeDragOver: TLabel_BeforeDragOver;
  4035.     FOnBeforeDropOrPaste: TLabel_BeforeDropOrPaste;
  4036.     FOnError: TLabel_Error;
  4037.     FIntf: ILabelControl;
  4038.     function GetControlInterface: ILabelControl;
  4039.   protected
  4040.     procedure CreateControl;
  4041.     procedure InitControlData; override;
  4042.     function GetTOleEnumProp(Index: Integer): TOleEnum;
  4043.     procedure SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  4044.   public
  4045.     property ControlInterface: ILabelControl read GetControlInterface;
  4046.     property _Font_Reserved: TFont index 2147483135 write SetTFontProp;
  4047.     property FontItalic: WordBool index 4 read GetWordBoolProp write SetWordBoolProp;
  4048.     property FontBold: WordBool index 3 read GetWordBoolProp write SetWordBoolProp;
  4049.     property FontName: WideString index 1 read GetWideStringProp write SetWideStringProp;
  4050.     property FontSize: Currency index 2 read GetCurrencyProp write SetCurrencyProp;
  4051.     property FontStrikethru: WordBool index 6 read GetWordBoolProp write SetWordBoolProp;
  4052.     property FontUnderline: WordBool index 5 read GetWordBoolProp write SetWordBoolProp;
  4053.     property FontWeight: Smallint index 7 read GetSmallintProp write SetSmallintProp;
  4054.     property _Value: WideString index -518 read GetWideStringProp write SetWideStringProp;
  4055.   published
  4056.     property AutoSize: WordBool index -500 read GetWordBoolProp write SetWordBoolProp stored False;
  4057.     property BackColor: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  4058.     property BackStyle: fmBackStyle index -502 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4059.     property BorderColor: TColor index -503 read GetTColorProp write SetTColorProp stored False;
  4060.     property BorderStyle: fmBorderStyle index -504 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4061.     property Caption: WideString index 0 read GetWideStringProp write SetWideStringProp stored False;
  4062.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  4063.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  4064.     property ForeColor: TColor index -513 read GetTColorProp write SetTColorProp stored False;
  4065.     property MouseIcon: TPicture index -522 read GetTPictureProp write SetTPictureProp stored False;
  4066.     property MousePointer: fmMousePointer index -521 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4067.     property Picture: TPicture index -523 read GetTPictureProp write SetTPictureProp stored False;
  4068.     property PicturePosition: fmPicturePosition index 11 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4069.     property SpecialEffect: fmSpecialEffect index 12 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4070.     property TextAlign: fmTextAlign index 13 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4071.     property WordWrap: WordBool index -536 read GetWordBoolProp write SetWordBoolProp stored False;
  4072.     property Accelerator: WideString index -543 read GetWideStringProp write SetWideStringProp stored False;
  4073.     property OnBeforeDragOver: TLabel_BeforeDragOver read FOnBeforeDragOver write FOnBeforeDragOver;
  4074.     property OnBeforeDropOrPaste: TLabel_BeforeDropOrPaste read FOnBeforeDropOrPaste write FOnBeforeDropOrPaste;
  4075.     property OnError: TLabel_Error read FOnError write FOnError;
  4076.   end;
  4077.  
  4078.   TCommandButtonBeforeDragOver = procedure(Sender: TObject; const Cancel: ReturnBoolean; const Data: DataObject; X, Y: Single; DragState: fmDragState; const Effect: ReturnEffect; Shift: Smallint) of object;
  4079.   TCommandButtonBeforeDropOrPaste = procedure(Sender: TObject; const Cancel: ReturnBoolean; Action: fmAction; const Data: DataObject; X, Y: Single; const Effect: ReturnEffect; Shift: Smallint) of object;
  4080.   TCommandButtonError = procedure(Sender: TObject; Number: Smallint; const Description: ReturnString; SCode: Integer; const Source, HelpFile: WideString; HelpContext: Integer; const CancelDisplay: ReturnBoolean) of object;
  4081.  
  4082.   TCommandButton = class(TOleControl)
  4083.   private
  4084.     FOnBeforeDragOver: TCommandButtonBeforeDragOver;
  4085.     FOnBeforeDropOrPaste: TCommandButtonBeforeDropOrPaste;
  4086.     FOnError: TCommandButtonError;
  4087.     FIntf: ICommandButton;
  4088.     function GetControlInterface: ICommandButton;
  4089.   protected
  4090.     procedure CreateControl;
  4091.     procedure InitControlData; override;
  4092.     function GetTOleEnumProp(Index: Integer): TOleEnum;
  4093.     procedure SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  4094.   public
  4095.     property ControlInterface: ICommandButton read GetControlInterface;
  4096.     property _Font_Reserved: TFont index 2147483135 write SetTFontProp;
  4097.     property FontBold: WordBool index 3 read GetWordBoolProp write SetWordBoolProp;
  4098.     property FontItalic: WordBool index 4 read GetWordBoolProp write SetWordBoolProp;
  4099.     property FontName: WideString index 1 read GetWideStringProp write SetWideStringProp;
  4100.     property FontSize: Currency index 2 read GetCurrencyProp write SetCurrencyProp;
  4101.     property FontStrikethru: WordBool index 6 read GetWordBoolProp write SetWordBoolProp;
  4102.     property FontUnderline: WordBool index 5 read GetWordBoolProp write SetWordBoolProp;
  4103.     property Value: WordBool index 0 read GetWordBoolProp write SetWordBoolProp;
  4104.     property FontWeight: Smallint index 7 read GetSmallintProp write SetSmallintProp;
  4105.   published
  4106.     property AutoSize: WordBool index -500 read GetWordBoolProp write SetWordBoolProp stored False;
  4107.     property BackColor: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  4108.     property BackStyle: fmBackStyle index -502 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4109.     property Caption: WideString index -518 read GetWideStringProp write SetWideStringProp stored False;
  4110.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  4111.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  4112.     property ForeColor: TColor index -513 read GetTColorProp write SetTColorProp stored False;
  4113.     property TakeFocusOnClick: WordBool index 203 read GetWordBoolProp write SetWordBoolProp stored False;
  4114.     property Locked: WordBool index 10 read GetWordBoolProp write SetWordBoolProp stored False;
  4115.     property MouseIcon: TPicture index -522 read GetTPictureProp write SetTPictureProp stored False;
  4116.     property MousePointer: fmMousePointer index -521 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4117.     property Picture: TPicture index -523 read GetTPictureProp write SetTPictureProp stored False;
  4118.     property PicturePosition: fmPicturePosition index 11 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4119.     property Accelerator: WideString index -543 read GetWideStringProp write SetWideStringProp stored False;
  4120.     property WordWrap: WordBool index -536 read GetWordBoolProp write SetWordBoolProp stored False;
  4121.     property OnBeforeDragOver: TCommandButtonBeforeDragOver read FOnBeforeDragOver write FOnBeforeDragOver;
  4122.     property OnBeforeDropOrPaste: TCommandButtonBeforeDropOrPaste read FOnBeforeDropOrPaste write FOnBeforeDropOrPaste;
  4123.     property OnError: TCommandButtonError read FOnError write FOnError;
  4124.   end;
  4125.  
  4126.   TTextBoxBeforeDragOver = procedure(Sender: TObject; const Cancel: ReturnBoolean; const Data: DataObject; X, Y: Single; DragState: fmDragState; const Effect: ReturnEffect; Shift: Smallint) of object;
  4127.   TTextBoxBeforeDropOrPaste = procedure(Sender: TObject; const Cancel: ReturnBoolean; Action: fmAction; const Data: DataObject; X, Y: Single; const Effect: ReturnEffect; Shift: Smallint) of object;
  4128.   TTextBoxError = procedure(Sender: TObject; Number: Smallint; const Description: ReturnString; SCode: Integer; const Source, HelpFile: WideString; HelpContext: Integer; const CancelDisplay: ReturnBoolean) of object;
  4129.  
  4130.   TTextBox = class(TOleControl)
  4131.   private
  4132.     FOnBeforeDragOver: TTextBoxBeforeDragOver;
  4133.     FOnBeforeDropOrPaste: TTextBoxBeforeDropOrPaste;
  4134.     FOnChange: TNotifyEvent;
  4135.     FOnDropButtonClick: TNotifyEvent;
  4136.     FOnError: TTextBoxError;
  4137.     FIntf: IMdcText;
  4138.     function GetControlInterface: IMdcText;
  4139.     function Get_Value: OleVariant;
  4140.     procedure Set_Value(Value: OleVariant);
  4141.   protected
  4142.     procedure CreateControl;
  4143.     procedure InitControlData; override;
  4144.     function GetTOleEnumProp(Index: Integer): TOleEnum;
  4145.     procedure SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  4146.   public
  4147.     procedure Copy;
  4148.     procedure Cut;
  4149.     procedure Paste;
  4150.     property ControlInterface: IMdcText read GetControlInterface;
  4151.     property BordersSuppress: WordBool index 20 read GetWordBoolProp write SetWordBoolProp;
  4152.     property CanPaste: WordBool index 25 read GetWordBoolProp;
  4153.     property CurTargetX: Integer index 210 read GetIntegerProp;
  4154.     property CurTargetY: Integer index 221 read GetIntegerProp;
  4155.     property CurY: Integer index 209 read GetIntegerProp write SetIntegerProp;
  4156.     property DropButtonStyle: fmDropButtonStyle index 305 read GetTOleEnumProp write SetTOleEnumProp;
  4157.     property _Font_Reserved: TFont index 2147483135 write SetTFontProp;
  4158.     property FontBold: WordBool index 3 read GetWordBoolProp write SetWordBoolProp;
  4159.     property FontItalic: WordBool index 4 read GetWordBoolProp write SetWordBoolProp;
  4160.     property FontName: WideString index 1 read GetWideStringProp write SetWideStringProp;
  4161.     property FontSize: Currency index 2 read GetCurrencyProp write SetCurrencyProp;
  4162.     property FontStrikethru: WordBool index 6 read GetWordBoolProp write SetWordBoolProp;
  4163.     property FontUnderline: WordBool index 5 read GetWordBoolProp write SetWordBoolProp;
  4164.     property FontWeight: Smallint index 7 read GetSmallintProp write SetSmallintProp;
  4165.     property LineCount: Integer index 214 read GetIntegerProp;
  4166.     property ShowDropButtonWhen: fmShowDropButtonWhen index 304 read GetTOleEnumProp write SetTOleEnumProp;
  4167.     property TextLength: Integer index 216 read GetIntegerProp;
  4168.     property Valid: WordBool index -524 read GetWordBoolProp;
  4169.     property DisplayStyle: fmDisplayStyle index -540 read GetTOleEnumProp;
  4170.   published
  4171.     property AutoSize: WordBool index -500 read GetWordBoolProp write SetWordBoolProp stored False;
  4172.     property AutoTab: WordBool index 217 read GetWordBoolProp write SetWordBoolProp stored False;
  4173.     property AutoWordSelect: WordBool index 218 read GetWordBoolProp write SetWordBoolProp stored False;
  4174.     property BackColor: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  4175.     property BackStyle: fmBackStyle index -502 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4176.     property BorderColor: TColor index -503 read GetTColorProp write SetTColorProp stored False;
  4177.     property BorderStyle: fmBorderStyle index -504 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4178.     property CurLine: Integer index 212 read GetIntegerProp write SetIntegerProp stored False;
  4179.     property CurX: Integer index 208 read GetIntegerProp write SetIntegerProp stored False;
  4180.     property EnterKeyBehavior: WordBool index -544 read GetWordBoolProp write SetWordBoolProp stored False;
  4181.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  4182.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  4183.     property ForeColor: TColor index -513 read GetTColorProp write SetTColorProp stored False;
  4184.     property HideSelection: WordBool index 207 read GetWordBoolProp write SetWordBoolProp stored False;
  4185.     property IntegralHeight: WordBool index 604 read GetWordBoolProp write SetWordBoolProp stored False;
  4186.     property Locked: WordBool index 10 read GetWordBoolProp write SetWordBoolProp stored False;
  4187.     property MaxLength: Integer index -533 read GetIntegerProp write SetIntegerProp stored False;
  4188.     property MouseIcon: TPicture index -522 read GetTPictureProp write SetTPictureProp stored False;
  4189.     property MousePointer: fmMousePointer index -521 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4190.     property MultiLine: WordBool index -537 read GetWordBoolProp write SetWordBoolProp stored False;
  4191.     property PasswordChar: WideString index -534 read GetWideStringProp write SetWideStringProp stored False;
  4192.     property ScrollBars: fmScrollBars index -535 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4193.     property SelectionMargin: WordBool index 220 read GetWordBoolProp write SetWordBoolProp stored False;
  4194.     property SelLength: Integer index -548 read GetIntegerProp write SetIntegerProp stored False;
  4195.     property SelStart: Integer index -547 read GetIntegerProp write SetIntegerProp stored False;
  4196.     property SelText: WideString index -546 read GetWideStringProp write SetWideStringProp stored False;
  4197.     property SpecialEffect: fmSpecialEffect index 12 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4198.     property TabKeyBehavior: WordBool index -545 read GetWordBoolProp write SetWordBoolProp stored False;
  4199.     property Text: WideString index -517 read GetWideStringProp write SetWideStringProp stored False;
  4200.     property TextAlign: fmTextAlign index 10004 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4201.     property Value: OleVariant read Get_Value write Set_Value stored False;
  4202.     property WordWrap: WordBool index -536 read GetWordBoolProp write SetWordBoolProp stored False;
  4203.     property IMEMode: fmIMEMode index -542 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4204.     property EnterFieldBehavior: fmEnterFieldBehavior index 224 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4205.     property DragBehavior: fmDragBehavior index 225 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4206.     property OnBeforeDragOver: TTextBoxBeforeDragOver read FOnBeforeDragOver write FOnBeforeDragOver;
  4207.     property OnBeforeDropOrPaste: TTextBoxBeforeDropOrPaste read FOnBeforeDropOrPaste write FOnBeforeDropOrPaste;
  4208.     property OnChange: TNotifyEvent read FOnChange write FOnChange;
  4209.     property OnDropButtonClick: TNotifyEvent read FOnDropButtonClick write FOnDropButtonClick;
  4210.     property OnError: TTextBoxError read FOnError write FOnError;
  4211.   end;
  4212.  
  4213.   TListBoxBeforeDragOver = procedure(Sender: TObject; const Cancel: ReturnBoolean; const Data: DataObject; X, Y: Single; DragState: fmDragState; const Effect: ReturnEffect; Shift: Smallint) of object;
  4214.   TListBoxBeforeDropOrPaste = procedure(Sender: TObject; const Cancel: ReturnBoolean; Action: fmAction; const Data: DataObject; X, Y: Single; const Effect: ReturnEffect; Shift: Smallint) of object;
  4215.   TListBoxError = procedure(Sender: TObject; Number: Smallint; const Description: ReturnString; SCode: Integer; const Source, HelpFile: WideString; HelpContext: Integer; const CancelDisplay: ReturnBoolean) of object;
  4216.  
  4217.   TListBox = class(TOleControl)
  4218.   private
  4219.     FOnBeforeDragOver: TListBoxBeforeDragOver;
  4220.     FOnBeforeDropOrPaste: TListBoxBeforeDropOrPaste;
  4221.     FOnChange: TNotifyEvent;
  4222.     FOnClick: TNotifyEvent;
  4223.     FOnError: TListBoxError;
  4224.     FIntf: IMdcList;
  4225.     function GetControlInterface: IMdcList;
  4226.     function Get_BoundColumn: OleVariant;
  4227.     procedure Set_BoundColumn(Value: OleVariant);
  4228.     function Get_ListCursor: PIROWSET;
  4229.     procedure Set_ListCursor(Value: PIROWSET);
  4230.     function Get_ListIndex: OleVariant;
  4231.     procedure Set_ListIndex(Value: OleVariant);
  4232.     function Get_ListWidth: OleVariant;
  4233.     procedure Set_ListWidth(Value: OleVariant);
  4234.     function Get_TextColumn: OleVariant;
  4235.     procedure Set_TextColumn(Value: OleVariant);
  4236.     function Get_TopIndex: OleVariant;
  4237.     procedure Set_TopIndex(Value: OleVariant);
  4238.     function Get_Value: OleVariant;
  4239.     procedure Set_Value(Value: OleVariant);
  4240.     function Get_Column(var pvargColumn, pvargIndex: OleVariant): OleVariant;
  4241.     procedure Set_Column(var pvargColumn, pvargIndex: OleVariant; Value: OleVariant);
  4242.     function Get_List(var pvargIndex, pvargColumn: OleVariant): OleVariant;
  4243.     procedure Set_List(var pvargIndex, pvargColumn: OleVariant; Value: OleVariant);
  4244.     function Get_Selected(var pvargIndex: OleVariant): WordBool;
  4245.     procedure Set_Selected(var pvargIndex: OleVariant; Value: WordBool);
  4246.   protected
  4247.     procedure CreateControl;
  4248.     procedure InitControlData; override;
  4249.     function GetTOleEnumProp(Index: Integer): TOleEnum;
  4250.     procedure SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  4251.   public
  4252.     procedure AddItem(var pvargItem, pvargIndex: OleVariant);
  4253.     procedure Clear;
  4254.     procedure RemoveItem(var pvargIndex: OleVariant);
  4255.     property ControlInterface: IMdcList read GetControlInterface;
  4256.     property BordersSuppress: WordBool index 20 read GetWordBoolProp write SetWordBoolProp;
  4257.     property _Font_Reserved: TFont index 2147483135 write SetTFontProp;
  4258.     property FontBold: WordBool index 3 read GetWordBoolProp write SetWordBoolProp;
  4259.     property FontItalic: WordBool index 4 read GetWordBoolProp write SetWordBoolProp;
  4260.     property FontName: WideString index 1 read GetWideStringProp write SetWideStringProp;
  4261.     property FontSize: Currency index 2 read GetCurrencyProp write SetCurrencyProp;
  4262.     property FontStrikethru: WordBool index 6 read GetWordBoolProp write SetWordBoolProp;
  4263.     property FontUnderline: WordBool index 5 read GetWordBoolProp write SetWordBoolProp;
  4264.     property FontWeight: Smallint index 7 read GetSmallintProp write SetSmallintProp;
  4265.     property ListCount: Integer index -531 read GetIntegerProp;
  4266.     property ListCursor: PIROWSET read Get_ListCursor write Set_ListCursor;
  4267.     property ListWidth: OleVariant read Get_ListWidth write Set_ListWidth;
  4268.     property Valid: WordBool index -524 read GetWordBoolProp;
  4269.     property Column[var pvargColumn, pvargIndex: OleVariant]: OleVariant read Get_Column write Set_Column;
  4270.     property List[var pvargIndex, pvargColumn: OleVariant]: OleVariant read Get_List write Set_List;
  4271.     property Selected[var pvargIndex: OleVariant]: WordBool read Get_Selected write Set_Selected;
  4272.     property DisplayStyle: fmDisplayStyle index -540 read GetTOleEnumProp;
  4273.   published
  4274.     property BackColor: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  4275.     property BorderColor: TColor index -503 read GetTColorProp write SetTColorProp stored False;
  4276.     property BorderStyle: fmBorderStyle index -504 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4277.     property BoundColumn: OleVariant read Get_BoundColumn write Set_BoundColumn stored False;
  4278.     property ColumnCount: Integer index 601 read GetIntegerProp write SetIntegerProp stored False;
  4279.     property ColumnHeads: WordBool index 602 read GetWordBoolProp write SetWordBoolProp stored False;
  4280.     property ColumnWidths: WideString index 603 read GetWideStringProp write SetWideStringProp stored False;
  4281.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  4282.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  4283.     property ForeColor: TColor index -513 read GetTColorProp write SetTColorProp stored False;
  4284.     property IntegralHeight: WordBool index 604 read GetWordBoolProp write SetWordBoolProp stored False;
  4285.     property ListIndex: OleVariant read Get_ListIndex write Set_ListIndex stored False;
  4286.     property ListStyle: fmListStyle index 307 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4287.     property Locked: WordBool index 10 read GetWordBoolProp write SetWordBoolProp stored False;
  4288.     property MatchEntry: fmMatchEntry index 504 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4289.     property MouseIcon: TPicture index -522 read GetTPictureProp write SetTPictureProp stored False;
  4290.     property MousePointer: fmMousePointer index -521 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4291.     property MultiSelect: fmMultiSelect index -532 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4292.     property SpecialEffect: fmSpecialEffect index 12 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4293.     property Text: WideString index -517 read GetWideStringProp write SetWideStringProp stored False;
  4294.     property TextColumn: OleVariant read Get_TextColumn write Set_TextColumn stored False;
  4295.     property TopIndex: OleVariant read Get_TopIndex write Set_TopIndex stored False;
  4296.     property Value: OleVariant read Get_Value write Set_Value stored False;
  4297.     property IMEMode: fmIMEMode index -542 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4298.     property OnBeforeDragOver: TListBoxBeforeDragOver read FOnBeforeDragOver write FOnBeforeDragOver;
  4299.     property OnBeforeDropOrPaste: TListBoxBeforeDropOrPaste read FOnBeforeDropOrPaste write FOnBeforeDropOrPaste;
  4300.     property OnChange: TNotifyEvent read FOnChange write FOnChange;
  4301.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  4302.     property OnError: TListBoxError read FOnError write FOnError;
  4303.   end;
  4304.  
  4305.   TComboBoxBeforeDragOver = procedure(Sender: TObject; const Cancel: ReturnBoolean; const Data: DataObject; X, Y: Single; DragState: fmDragState; const Effect: ReturnEffect; Shift: Smallint) of object;
  4306.   TComboBoxBeforeDropOrPaste = procedure(Sender: TObject; const Cancel: ReturnBoolean; Action: fmAction; const Data: DataObject; X, Y: Single; const Effect: ReturnEffect; Shift: Smallint) of object;
  4307.   TComboBoxError = procedure(Sender: TObject; Number: Smallint; const Description: ReturnString; SCode: Integer; const Source, HelpFile: WideString; HelpContext: Integer; const CancelDisplay: ReturnBoolean) of object;
  4308.  
  4309.   TComboBox = class(TOleControl)
  4310.   private
  4311.     FOnBeforeDragOver: TComboBoxBeforeDragOver;
  4312.     FOnBeforeDropOrPaste: TComboBoxBeforeDropOrPaste;
  4313.     FOnChange: TNotifyEvent;
  4314.     FOnClick: TNotifyEvent;
  4315.     FOnDropButtonClick: TNotifyEvent;
  4316.     FOnError: TComboBoxError;
  4317.     FIntf: IMdcCombo;
  4318.     function GetControlInterface: IMdcCombo;
  4319.     function Get_BoundColumn: OleVariant;
  4320.     procedure Set_BoundColumn(Value: OleVariant);
  4321.     function Get_ListCursor: PIROWSET;
  4322.     procedure Set_ListCursor(Value: PIROWSET);
  4323.     function Get_ListIndex: OleVariant;
  4324.     procedure Set_ListIndex(Value: OleVariant);
  4325.     function Get_ListWidth: OleVariant;
  4326.     procedure Set_ListWidth(Value: OleVariant);
  4327.     function Get_TextColumn: OleVariant;
  4328.     procedure Set_TextColumn(Value: OleVariant);
  4329.     function Get_TopIndex: OleVariant;
  4330.     procedure Set_TopIndex(Value: OleVariant);
  4331.     function Get_Value: OleVariant;
  4332.     procedure Set_Value(Value: OleVariant);
  4333.     function Get_Column(var pvargColumn, pvargIndex: OleVariant): OleVariant;
  4334.     procedure Set_Column(var pvargColumn, pvargIndex: OleVariant; Value: OleVariant);
  4335.     function Get_List(var pvargIndex, pvargColumn: OleVariant): OleVariant;
  4336.     procedure Set_List(var pvargIndex, pvargColumn: OleVariant; Value: OleVariant);
  4337.   protected
  4338.     procedure CreateControl;
  4339.     procedure InitControlData; override;
  4340.     function GetTOleEnumProp(Index: Integer): TOleEnum;
  4341.     procedure SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  4342.   public
  4343.     procedure AddItem(var pvargItem, pvargIndex: OleVariant);
  4344.     procedure Clear;
  4345.     procedure DropDown;
  4346.     procedure RemoveItem(var pvargIndex: OleVariant);
  4347.     procedure Copy;
  4348.     procedure Cut;
  4349.     procedure Paste;
  4350.     property ControlInterface: IMdcCombo read GetControlInterface;
  4351.     property BordersSuppress: WordBool index 20 read GetWordBoolProp write SetWordBoolProp;
  4352.     property CanPaste: WordBool index 25 read GetWordBoolProp;
  4353.     property CurTargetX: Integer index 210 read GetIntegerProp;
  4354.     property CurTargetY: Integer index 221 read GetIntegerProp;
  4355.     property _Font_Reserved: TFont index 2147483135 write SetTFontProp;
  4356.     property FontBold: WordBool index 3 read GetWordBoolProp write SetWordBoolProp;
  4357.     property FontItalic: WordBool index 4 read GetWordBoolProp write SetWordBoolProp;
  4358.     property FontName: WideString index 1 read GetWideStringProp write SetWideStringProp;
  4359.     property FontSize: Currency index 2 read GetCurrencyProp write SetCurrencyProp;
  4360.     property FontStrikethru: WordBool index 6 read GetWordBoolProp write SetWordBoolProp;
  4361.     property FontUnderline: WordBool index 5 read GetWordBoolProp write SetWordBoolProp;
  4362.     property FontWeight: Smallint index 7 read GetSmallintProp write SetSmallintProp;
  4363.     property LineCount: Integer index 214 read GetIntegerProp;
  4364.     property ListCount: Integer index -531 read GetIntegerProp;
  4365.     property ListCursor: PIROWSET read Get_ListCursor write Set_ListCursor;
  4366.     property MatchFound: WordBool index 505 read GetWordBoolProp;
  4367.     property TextLength: Integer index 216 read GetIntegerProp;
  4368.     property Valid: WordBool index -524 read GetWordBoolProp;
  4369.     property Column[var pvargColumn, pvargIndex: OleVariant]: OleVariant read Get_Column write Set_Column;
  4370.     property List[var pvargIndex, pvargColumn: OleVariant]: OleVariant read Get_List write Set_List;
  4371.     property DisplayStyle: fmDisplayStyle index -540 read GetTOleEnumProp;
  4372.   published
  4373.     property AutoSize: WordBool index -500 read GetWordBoolProp write SetWordBoolProp stored False;
  4374.     property AutoTab: WordBool index 217 read GetWordBoolProp write SetWordBoolProp stored False;
  4375.     property AutoWordSelect: WordBool index 218 read GetWordBoolProp write SetWordBoolProp stored False;
  4376.     property BackColor: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  4377.     property BackStyle: fmBackStyle index -502 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4378.     property BorderColor: TColor index -503 read GetTColorProp write SetTColorProp stored False;
  4379.     property BorderStyle: fmBorderStyle index -504 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4380.     property BoundColumn: OleVariant read Get_BoundColumn write Set_BoundColumn stored False;
  4381.     property ColumnCount: Integer index 601 read GetIntegerProp write SetIntegerProp stored False;
  4382.     property ColumnHeads: WordBool index 602 read GetWordBoolProp write SetWordBoolProp stored False;
  4383.     property ColumnWidths: WideString index 603 read GetWideStringProp write SetWideStringProp stored False;
  4384.     property CurX: Integer index 208 read GetIntegerProp write SetIntegerProp stored False;
  4385.     property DropButtonStyle: fmDropButtonStyle index 305 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4386.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  4387.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  4388.     property ForeColor: TColor index -513 read GetTColorProp write SetTColorProp stored False;
  4389.     property HideSelection: WordBool index 207 read GetWordBoolProp write SetWordBoolProp stored False;
  4390.     property ListIndex: OleVariant read Get_ListIndex write Set_ListIndex stored False;
  4391.     property ListRows: Integer index 605 read GetIntegerProp write SetIntegerProp stored False;
  4392.     property ListStyle: fmListStyle index 307 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4393.     property ListWidth: OleVariant read Get_ListWidth write Set_ListWidth stored False;
  4394.     property Locked: WordBool index 10 read GetWordBoolProp write SetWordBoolProp stored False;
  4395.     property MatchEntry: fmMatchEntry index 504 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4396.     property MatchRequired: WordBool index 503 read GetWordBoolProp write SetWordBoolProp stored False;
  4397.     property MaxLength: Integer index -533 read GetIntegerProp write SetIntegerProp stored False;
  4398.     property MouseIcon: TPicture index -522 read GetTPictureProp write SetTPictureProp stored False;
  4399.     property MousePointer: fmMousePointer index -521 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4400.     property SelectionMargin: WordBool index 220 read GetWordBoolProp write SetWordBoolProp stored False;
  4401.     property SelLength: Integer index -548 read GetIntegerProp write SetIntegerProp stored False;
  4402.     property SelStart: Integer index -547 read GetIntegerProp write SetIntegerProp stored False;
  4403.     property SelText: WideString index -546 read GetWideStringProp write SetWideStringProp stored False;
  4404.     property ShowDropButtonWhen: fmShowDropButtonWhen index 304 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4405.     property SpecialEffect: fmSpecialEffect index 12 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4406.     property Style: fmStyle index 308 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4407.     property Text: WideString index -517 read GetWideStringProp write SetWideStringProp stored False;
  4408.     property TextAlign: fmTextAlign index 10004 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4409.     property TextColumn: OleVariant read Get_TextColumn write Set_TextColumn stored False;
  4410.     property TopIndex: OleVariant read Get_TopIndex write Set_TopIndex stored False;
  4411.     property Value: OleVariant read Get_Value write Set_Value stored False;
  4412.     property IMEMode: fmIMEMode index -542 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4413.     property EnterFieldBehavior: fmEnterFieldBehavior index 224 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4414.     property DragBehavior: fmDragBehavior index 225 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4415.     property OnBeforeDragOver: TComboBoxBeforeDragOver read FOnBeforeDragOver write FOnBeforeDragOver;
  4416.     property OnBeforeDropOrPaste: TComboBoxBeforeDropOrPaste read FOnBeforeDropOrPaste write FOnBeforeDropOrPaste;
  4417.     property OnChange: TNotifyEvent read FOnChange write FOnChange;
  4418.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  4419.     property OnDropButtonClick: TNotifyEvent read FOnDropButtonClick write FOnDropButtonClick;
  4420.     property OnError: TComboBoxError read FOnError write FOnError;
  4421.   end;
  4422.  
  4423.   TCheckBoxBeforeDragOver = procedure(Sender: TObject; const Cancel: ReturnBoolean; const Data: DataObject; X, Y: Single; DragState: fmDragState; const Effect: ReturnEffect; Shift: Smallint) of object;
  4424.   TCheckBoxBeforeDropOrPaste = procedure(Sender: TObject; const Cancel: ReturnBoolean; Action: fmAction; const Data: DataObject; X, Y: Single; const Effect: ReturnEffect; Shift: Smallint) of object;
  4425.   TCheckBoxError = procedure(Sender: TObject; Number: Smallint; const Description: ReturnString; SCode: Integer; const Source, HelpFile: WideString; HelpContext: Integer; const CancelDisplay: ReturnBoolean) of object;
  4426.  
  4427.   TCheckBox = class(TOleControl)
  4428.   private
  4429.     FOnBeforeDragOver: TCheckBoxBeforeDragOver;
  4430.     FOnBeforeDropOrPaste: TCheckBoxBeforeDropOrPaste;
  4431.     FOnChange: TNotifyEvent;
  4432.     FOnClick: TNotifyEvent;
  4433.     FOnError: TCheckBoxError;
  4434.     FIntf: IMdcCheckBox;
  4435.     function GetControlInterface: IMdcCheckBox;
  4436.     function Get_Value: OleVariant;
  4437.     procedure Set_Value(Value: OleVariant);
  4438.   protected
  4439.     procedure CreateControl;
  4440.     procedure InitControlData; override;
  4441.     function GetTOleEnumProp(Index: Integer): TOleEnum;
  4442.     procedure SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  4443.   public
  4444.     property ControlInterface: IMdcCheckBox read GetControlInterface;
  4445.     property BordersSuppress: WordBool index 20 read GetWordBoolProp write SetWordBoolProp;
  4446.     property _Font_Reserved: TFont index 2147483135 write SetTFontProp;
  4447.     property FontBold: WordBool index 3 read GetWordBoolProp write SetWordBoolProp;
  4448.     property FontItalic: WordBool index 4 read GetWordBoolProp write SetWordBoolProp;
  4449.     property FontName: WideString index 1 read GetWideStringProp write SetWideStringProp;
  4450.     property FontSize: Currency index 2 read GetCurrencyProp write SetCurrencyProp;
  4451.     property FontStrikethru: WordBool index 6 read GetWordBoolProp write SetWordBoolProp;
  4452.     property FontUnderline: WordBool index 5 read GetWordBoolProp write SetWordBoolProp;
  4453.     property FontWeight: Smallint index 7 read GetSmallintProp write SetSmallintProp;
  4454.     property MultiSelect: fmMultiSelect index -532 read GetTOleEnumProp write SetTOleEnumProp;
  4455.     property Valid: WordBool index -524 read GetWordBoolProp;
  4456.     property DisplayStyle: fmDisplayStyle index -540 read GetTOleEnumProp;
  4457.   published
  4458.     property Accelerator: WideString index -543 read GetWideStringProp write SetWideStringProp stored False;
  4459.     property Alignment: fmAlignment index 710 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4460.     property AutoSize: WordBool index -500 read GetWordBoolProp write SetWordBoolProp stored False;
  4461.     property BackColor: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  4462.     property BackStyle: fmBackStyle index -502 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4463.     property Caption: WideString index -518 read GetWideStringProp write SetWideStringProp stored False;
  4464.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  4465.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  4466.     property ForeColor: TColor index -513 read GetTColorProp write SetTColorProp stored False;
  4467.     property Locked: WordBool index 10 read GetWordBoolProp write SetWordBoolProp stored False;
  4468.     property MouseIcon: TPicture index -522 read GetTPictureProp write SetTPictureProp stored False;
  4469.     property MousePointer: fmMousePointer index -521 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4470.     property Picture: TPicture index -523 read GetTPictureProp write SetTPictureProp stored False;
  4471.     property PicturePosition: fmPicturePosition index 11 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4472.     property SpecialEffect: fmButtonEffect index 12 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4473.     property TripleState: WordBool index 700 read GetWordBoolProp write SetWordBoolProp stored False;
  4474.     property Value: OleVariant read Get_Value write Set_Value stored False;
  4475.     property WordWrap: WordBool index -536 read GetWordBoolProp write SetWordBoolProp stored False;
  4476.     property GroupName: WideString index -541 read GetWideStringProp write SetWideStringProp stored False;
  4477.     property OnBeforeDragOver: TCheckBoxBeforeDragOver read FOnBeforeDragOver write FOnBeforeDragOver;
  4478.     property OnBeforeDropOrPaste: TCheckBoxBeforeDropOrPaste read FOnBeforeDropOrPaste write FOnBeforeDropOrPaste;
  4479.     property OnChange: TNotifyEvent read FOnChange write FOnChange;
  4480.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  4481.     property OnError: TCheckBoxError read FOnError write FOnError;
  4482.   end;
  4483.  
  4484.   TOptionButtonBeforeDragOver = procedure(Sender: TObject; const Cancel: ReturnBoolean; const Data: DataObject; X, Y: Single; DragState: fmDragState; const Effect: ReturnEffect; Shift: Smallint) of object;
  4485.   TOptionButtonBeforeDropOrPaste = procedure(Sender: TObject; const Cancel: ReturnBoolean; Action: fmAction; const Data: DataObject; X, Y: Single; const Effect: ReturnEffect; Shift: Smallint) of object;
  4486.   TOptionButtonError = procedure(Sender: TObject; Number: Smallint; const Description: ReturnString; SCode: Integer; const Source, HelpFile: WideString; HelpContext: Integer; const CancelDisplay: ReturnBoolean) of object;
  4487.  
  4488.   TOptionButton = class(TOleControl)
  4489.   private
  4490.     FOnBeforeDragOver: TOptionButtonBeforeDragOver;
  4491.     FOnBeforeDropOrPaste: TOptionButtonBeforeDropOrPaste;
  4492.     FOnChange: TNotifyEvent;
  4493.     FOnClick: TNotifyEvent;
  4494.     FOnError: TOptionButtonError;
  4495.     FIntf: IMdcOptionButton;
  4496.     function GetControlInterface: IMdcOptionButton;
  4497.     function Get_Value: OleVariant;
  4498.     procedure Set_Value(Value: OleVariant);
  4499.   protected
  4500.     procedure CreateControl;
  4501.     procedure InitControlData; override;
  4502.     function GetTOleEnumProp(Index: Integer): TOleEnum;
  4503.     procedure SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  4504.   public
  4505.     property ControlInterface: IMdcOptionButton read GetControlInterface;
  4506.     property BordersSuppress: WordBool index 20 read GetWordBoolProp write SetWordBoolProp;
  4507.     property _Font_Reserved: TFont index 2147483135 write SetTFontProp;
  4508.     property FontBold: WordBool index 3 read GetWordBoolProp write SetWordBoolProp;
  4509.     property FontItalic: WordBool index 4 read GetWordBoolProp write SetWordBoolProp;
  4510.     property FontName: WideString index 1 read GetWideStringProp write SetWideStringProp;
  4511.     property FontSize: Currency index 2 read GetCurrencyProp write SetCurrencyProp;
  4512.     property FontStrikethru: WordBool index 6 read GetWordBoolProp write SetWordBoolProp;
  4513.     property FontUnderline: WordBool index 5 read GetWordBoolProp write SetWordBoolProp;
  4514.     property FontWeight: Smallint index 7 read GetSmallintProp write SetSmallintProp;
  4515.     property MultiSelect: fmMultiSelect index -532 read GetTOleEnumProp write SetTOleEnumProp;
  4516.     property Valid: WordBool index -524 read GetWordBoolProp;
  4517.     property DisplayStyle: fmDisplayStyle index -540 read GetTOleEnumProp;
  4518.   published
  4519.     property Accelerator: WideString index -543 read GetWideStringProp write SetWideStringProp stored False;
  4520.     property Alignment: fmAlignment index 710 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4521.     property AutoSize: WordBool index -500 read GetWordBoolProp write SetWordBoolProp stored False;
  4522.     property BackColor: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  4523.     property BackStyle: fmBackStyle index -502 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4524.     property Caption: WideString index -518 read GetWideStringProp write SetWideStringProp stored False;
  4525.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  4526.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  4527.     property ForeColor: TColor index -513 read GetTColorProp write SetTColorProp stored False;
  4528.     property Locked: WordBool index 10 read GetWordBoolProp write SetWordBoolProp stored False;
  4529.     property MouseIcon: TPicture index -522 read GetTPictureProp write SetTPictureProp stored False;
  4530.     property MousePointer: fmMousePointer index -521 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4531.     property Picture: TPicture index -523 read GetTPictureProp write SetTPictureProp stored False;
  4532.     property PicturePosition: fmPicturePosition index 11 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4533.     property SpecialEffect: fmButtonEffect index 12 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4534.     property TripleState: WordBool index 700 read GetWordBoolProp write SetWordBoolProp stored False;
  4535.     property Value: OleVariant read Get_Value write Set_Value stored False;
  4536.     property WordWrap: WordBool index -536 read GetWordBoolProp write SetWordBoolProp stored False;
  4537.     property GroupName: WideString index -541 read GetWideStringProp write SetWideStringProp stored False;
  4538.     property OnBeforeDragOver: TOptionButtonBeforeDragOver read FOnBeforeDragOver write FOnBeforeDragOver;
  4539.     property OnBeforeDropOrPaste: TOptionButtonBeforeDropOrPaste read FOnBeforeDropOrPaste write FOnBeforeDropOrPaste;
  4540.     property OnChange: TNotifyEvent read FOnChange write FOnChange;
  4541.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  4542.     property OnError: TOptionButtonError read FOnError write FOnError;
  4543.   end;
  4544.  
  4545.   TToggleButtonBeforeDragOver = procedure(Sender: TObject; const Cancel: ReturnBoolean; const Data: DataObject; X, Y: Single; DragState: fmDragState; const Effect: ReturnEffect; Shift: Smallint) of object;
  4546.   TToggleButtonBeforeDropOrPaste = procedure(Sender: TObject; const Cancel: ReturnBoolean; Action: fmAction; const Data: DataObject; X, Y: Single; const Effect: ReturnEffect; Shift: Smallint) of object;
  4547.   TToggleButtonError = procedure(Sender: TObject; Number: Smallint; const Description: ReturnString; SCode: Integer; const Source, HelpFile: WideString; HelpContext: Integer; const CancelDisplay: ReturnBoolean) of object;
  4548.  
  4549.   TToggleButton = class(TOleControl)
  4550.   private
  4551.     FOnBeforeDragOver: TToggleButtonBeforeDragOver;
  4552.     FOnBeforeDropOrPaste: TToggleButtonBeforeDropOrPaste;
  4553.     FOnChange: TNotifyEvent;
  4554.     FOnClick: TNotifyEvent;
  4555.     FOnError: TToggleButtonError;
  4556.     FIntf: IMdcToggleButton;
  4557.     function GetControlInterface: IMdcToggleButton;
  4558.     function Get_Value: OleVariant;
  4559.     procedure Set_Value(Value: OleVariant);
  4560.   protected
  4561.     procedure CreateControl;
  4562.     procedure InitControlData; override;
  4563.     function GetTOleEnumProp(Index: Integer): TOleEnum;
  4564.     procedure SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  4565.   public
  4566.     property ControlInterface: IMdcToggleButton read GetControlInterface;
  4567.     property BordersSuppress: WordBool index 20 read GetWordBoolProp write SetWordBoolProp;
  4568.     property _Font_Reserved: TFont index 2147483135 write SetTFontProp;
  4569.     property FontBold: WordBool index 3 read GetWordBoolProp write SetWordBoolProp;
  4570.     property FontItalic: WordBool index 4 read GetWordBoolProp write SetWordBoolProp;
  4571.     property FontName: WideString index 1 read GetWideStringProp write SetWideStringProp;
  4572.     property FontSize: Currency index 2 read GetCurrencyProp write SetCurrencyProp;
  4573.     property FontStrikethru: WordBool index 6 read GetWordBoolProp write SetWordBoolProp;
  4574.     property FontUnderline: WordBool index 5 read GetWordBoolProp write SetWordBoolProp;
  4575.     property FontWeight: Smallint index 7 read GetSmallintProp write SetSmallintProp;
  4576.     property MultiSelect: fmMultiSelect index -532 read GetTOleEnumProp write SetTOleEnumProp;
  4577.     property Valid: WordBool index -524 read GetWordBoolProp;
  4578.     property DisplayStyle: fmDisplayStyle index -540 read GetTOleEnumProp;
  4579.   published
  4580.     property Accelerator: WideString index -543 read GetWideStringProp write SetWideStringProp stored False;
  4581.     property Alignment: fmAlignment index 710 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4582.     property AutoSize: WordBool index -500 read GetWordBoolProp write SetWordBoolProp stored False;
  4583.     property BackColor: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  4584.     property BackStyle: fmBackStyle index -502 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4585.     property Caption: WideString index -518 read GetWideStringProp write SetWideStringProp stored False;
  4586.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  4587.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  4588.     property ForeColor: TColor index -513 read GetTColorProp write SetTColorProp stored False;
  4589.     property Locked: WordBool index 10 read GetWordBoolProp write SetWordBoolProp stored False;
  4590.     property MouseIcon: TPicture index -522 read GetTPictureProp write SetTPictureProp stored False;
  4591.     property MousePointer: fmMousePointer index -521 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4592.     property Picture: TPicture index -523 read GetTPictureProp write SetTPictureProp stored False;
  4593.     property PicturePosition: fmPicturePosition index 11 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4594.     property SpecialEffect: fmButtonEffect index 12 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4595.     property TripleState: WordBool index 700 read GetWordBoolProp write SetWordBoolProp stored False;
  4596.     property Value: OleVariant read Get_Value write Set_Value stored False;
  4597.     property WordWrap: WordBool index -536 read GetWordBoolProp write SetWordBoolProp stored False;
  4598.     property GroupName: WideString index -541 read GetWideStringProp write SetWideStringProp stored False;
  4599.     property OnBeforeDragOver: TToggleButtonBeforeDragOver read FOnBeforeDragOver write FOnBeforeDragOver;
  4600.     property OnBeforeDropOrPaste: TToggleButtonBeforeDropOrPaste read FOnBeforeDropOrPaste write FOnBeforeDropOrPaste;
  4601.     property OnChange: TNotifyEvent read FOnChange write FOnChange;
  4602.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  4603.     property OnError: TToggleButtonError read FOnError write FOnError;
  4604.   end;
  4605.  
  4606.   TScrollBarBeforeDragOver = procedure(Sender: TObject; const Cancel: ReturnBoolean; const Data: DataObject; X, Y: Single; DragState: fmDragState; const Effect: ReturnEffect; Shift: Smallint) of object;
  4607.   TScrollBarBeforeDropOrPaste = procedure(Sender: TObject; const Cancel: ReturnBoolean; Action: fmAction; const Data: DataObject; X, Y: Single; const Effect: ReturnEffect; Shift: Smallint) of object;
  4608.   TScrollBarError = procedure(Sender: TObject; Number: Smallint; const Description: ReturnString; SCode: Integer; const Source, HelpFile: WideString; HelpContext: Integer; const CancelDisplay: ReturnBoolean) of object;
  4609.  
  4610.   TScrollBar = class(TOleControl)
  4611.   private
  4612.     FOnBeforeDragOver: TScrollBarBeforeDragOver;
  4613.     FOnBeforeDropOrPaste: TScrollBarBeforeDropOrPaste;
  4614.     FOnChange: TNotifyEvent;
  4615.     FOnError: TScrollBarError;
  4616.     FOnScroll: TNotifyEvent;
  4617.     FIntf: IScrollbar;
  4618.     function GetControlInterface: IScrollbar;
  4619.   protected
  4620.     procedure CreateControl;
  4621.     procedure InitControlData; override;
  4622.     function GetTOleEnumProp(Index: Integer): TOleEnum;
  4623.     procedure SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  4624.   public
  4625.     property ControlInterface: IScrollbar read GetControlInterface;
  4626.   published
  4627.     property BackColor: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  4628.     property ForeColor: TColor index -513 read GetTColorProp write SetTColorProp stored False;
  4629.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  4630.     property MousePointer: fmMousePointer index -521 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4631.     property Value: Integer index 0 read GetIntegerProp write SetIntegerProp stored False;
  4632.     property Min: Integer index 100 read GetIntegerProp write SetIntegerProp stored False;
  4633.     property Max: Integer index 101 read GetIntegerProp write SetIntegerProp stored False;
  4634.     property SmallChange: Integer index 102 read GetIntegerProp write SetIntegerProp stored False;
  4635.     property LargeChange: Integer index 103 read GetIntegerProp write SetIntegerProp stored False;
  4636.     property ProportionalThumb: WordBool index 104 read GetWordBoolProp write SetWordBoolProp stored False;
  4637.     property Orientation: fmOrientation index 105 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4638.     property Delay: Integer index 106 read GetIntegerProp write SetIntegerProp stored False;
  4639.     property MouseIcon: TPicture index -522 read GetTPictureProp write SetTPictureProp stored False;
  4640.     property OnBeforeDragOver: TScrollBarBeforeDragOver read FOnBeforeDragOver write FOnBeforeDragOver;
  4641.     property OnBeforeDropOrPaste: TScrollBarBeforeDropOrPaste read FOnBeforeDropOrPaste write FOnBeforeDropOrPaste;
  4642.     property OnChange: TNotifyEvent read FOnChange write FOnChange;
  4643.     property OnError: TScrollBarError read FOnError write FOnError;
  4644.     property OnScroll: TNotifyEvent read FOnScroll write FOnScroll;
  4645.   end;
  4646.  
  4647.   TTabStripBeforeDragOver = procedure(Sender: TObject; Index: Integer; const Cancel: ReturnBoolean; const Data: DataObject; X, Y: Single; DragState: fmDragState; const Effect: ReturnEffect; Shift: Smallint) of object;
  4648.   TTabStripBeforeDropOrPaste = procedure(Sender: TObject; Index: Integer; const Cancel: ReturnBoolean; Action: fmAction; const Data: DataObject; X, Y: Single; const Effect: ReturnEffect; Shift: Smallint) of object;
  4649.   TTabStripError = procedure(Sender: TObject; Number: Smallint; const Description: ReturnString; SCode: Integer; const Source, HelpFile: WideString; HelpContext: Integer; const CancelDisplay: ReturnBoolean) of object;
  4650.  
  4651.   TTabStrip = class(TOleControl)
  4652.   private
  4653.     FOnBeforeDragOver: TTabStripBeforeDragOver;
  4654.     FOnBeforeDropOrPaste: TTabStripBeforeDropOrPaste;
  4655.     FOnChange: TNotifyEvent;
  4656.     FOnError: TTabStripError;
  4657.     FIntf: ITabStrip;
  4658.     function GetControlInterface: ITabStrip;
  4659.     function Get_Tabs: Tabs;
  4660.     function Get_SelectedItem: Tab;
  4661.   protected
  4662.     procedure CreateControl;
  4663.     procedure InitControlData; override;
  4664.     function GetTOleEnumProp(Index: Integer): TOleEnum;
  4665.     procedure SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  4666.   public
  4667.     procedure _SetTabFixedWidth(TabFixedWidth: Integer);
  4668.     procedure _GetTabFixedWidth(out TabFixedWidth: Integer);
  4669.     procedure _SetTabFixedHeight(TabFixedHeight: Integer);
  4670.     procedure _GetTabFixedHeight(out TabFixedHeight: Integer);
  4671.     procedure _GetClientTop(out ClientTop: Integer);
  4672.     procedure _GetClientLeft(out ClientLeft: Integer);
  4673.     procedure _GetClientWidth(out ClientWidth: Integer);
  4674.     procedure _GetClientHeight(out ClientHeight: Integer);
  4675.     property ControlInterface: ITabStrip read GetControlInterface;
  4676.     property _Font_Reserved: TFont index 2147483135 write SetTFontProp;
  4677.     property FontName: WideString index 1 read GetWideStringProp write SetWideStringProp;
  4678.     property FontBold: WordBool index 3 read GetWordBoolProp write SetWordBoolProp;
  4679.     property FontItalic: WordBool index 4 read GetWordBoolProp write SetWordBoolProp;
  4680.     property FontUnderline: WordBool index 5 read GetWordBoolProp write SetWordBoolProp;
  4681.     property FontStrikethru: WordBool index 6 read GetWordBoolProp write SetWordBoolProp;
  4682.     property FontSize: Currency index 2 read GetCurrencyProp write SetCurrencyProp;
  4683.     property ClientTop: Single index 548 read GetSingleProp;
  4684.     property ClientLeft: Single index 547 read GetSingleProp;
  4685.     property ClientWidth: Single index 549 read GetSingleProp;
  4686.     property ClientHeight: Single index 546 read GetSingleProp;
  4687.     property Tabs: Tabs read Get_Tabs;
  4688.     property SelectedItem: Tab read Get_SelectedItem;
  4689.     property FontWeight: Smallint index 7 read GetSmallintProp write SetSmallintProp;
  4690.   published
  4691.     property BackColor: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  4692.     property ForeColor: TColor index -513 read GetTColorProp write SetTColorProp stored False;
  4693.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  4694.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  4695.     property MouseIcon: TPicture index -522 read GetTPictureProp write SetTPictureProp stored False;
  4696.     property MousePointer: fmMousePointer index -521 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4697.     property MultiRow: WordBool index 514 read GetWordBoolProp write SetWordBoolProp stored False;
  4698.     property Style: fmTabStyle index 513 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4699.     property TabOrientation: fmTabOrientation index 512 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4700.     property Value: Integer index 528 read GetIntegerProp write SetIntegerProp stored False;
  4701.     property TabFixedWidth: Single index 515 read GetSingleProp write SetSingleProp stored False;
  4702.     property TabFixedHeight: Single index 516 read GetSingleProp write SetSingleProp stored False;
  4703.     property OnBeforeDragOver: TTabStripBeforeDragOver read FOnBeforeDragOver write FOnBeforeDragOver;
  4704.     property OnBeforeDropOrPaste: TTabStripBeforeDropOrPaste read FOnBeforeDropOrPaste write FOnBeforeDropOrPaste;
  4705.     property OnChange: TNotifyEvent read FOnChange write FOnChange;
  4706.     property OnError: TTabStripError read FOnError write FOnError;
  4707.   end;
  4708.  
  4709.   TSpinButtonBeforeDragOver = procedure(Sender: TObject; const Cancel: ReturnBoolean; const Data: DataObject; X, Y: Single; DragState: fmDragState; const Effect: ReturnEffect; Shift: Smallint) of object;
  4710.   TSpinButtonBeforeDropOrPaste = procedure(Sender: TObject; const Cancel: ReturnBoolean; Action: fmAction; const Data: DataObject; X, Y: Single; const Effect: ReturnEffect; Shift: Smallint) of object;
  4711.   TSpinButtonError = procedure(Sender: TObject; Number: Smallint; const Description: ReturnString; SCode: Integer; const Source, HelpFile: WideString; HelpContext: Integer; const CancelDisplay: ReturnBoolean) of object;
  4712.  
  4713.   TSpinButton = class(TOleControl)
  4714.   private
  4715.     FOnBeforeDragOver: TSpinButtonBeforeDragOver;
  4716.     FOnBeforeDropOrPaste: TSpinButtonBeforeDropOrPaste;
  4717.     FOnChange: TNotifyEvent;
  4718.     FOnError: TSpinButtonError;
  4719.     FOnSpinUp: TNotifyEvent;
  4720.     FOnSpinDown: TNotifyEvent;
  4721.     FIntf: ISpinbutton;
  4722.     function GetControlInterface: ISpinbutton;
  4723.   protected
  4724.     procedure CreateControl;
  4725.     procedure InitControlData; override;
  4726.     function GetTOleEnumProp(Index: Integer): TOleEnum;
  4727.     procedure SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  4728.   public
  4729.     property ControlInterface: ISpinbutton read GetControlInterface;
  4730.   published
  4731.     property BackColor: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  4732.     property ForeColor: TColor index -513 read GetTColorProp write SetTColorProp stored False;
  4733.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  4734.     property MousePointer: fmMousePointer index -521 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4735.     property Value: Integer index 0 read GetIntegerProp write SetIntegerProp stored False;
  4736.     property Min: Integer index 100 read GetIntegerProp write SetIntegerProp stored False;
  4737.     property Max: Integer index 101 read GetIntegerProp write SetIntegerProp stored False;
  4738.     property SmallChange: Integer index 102 read GetIntegerProp write SetIntegerProp stored False;
  4739.     property Orientation: fmOrientation index 105 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4740.     property MouseIcon: TPicture index -522 read GetTPictureProp write SetTPictureProp stored False;
  4741.     property Delay: Integer index 106 read GetIntegerProp write SetIntegerProp stored False;
  4742.     property OnBeforeDragOver: TSpinButtonBeforeDragOver read FOnBeforeDragOver write FOnBeforeDragOver;
  4743.     property OnBeforeDropOrPaste: TSpinButtonBeforeDropOrPaste read FOnBeforeDropOrPaste write FOnBeforeDropOrPaste;
  4744.     property OnChange: TNotifyEvent read FOnChange write FOnChange;
  4745.     property OnError: TSpinButtonError read FOnError write FOnError;
  4746.     property OnSpinUp: TNotifyEvent read FOnSpinUp write FOnSpinUp;
  4747.     property OnSpinDown: TNotifyEvent read FOnSpinDown write FOnSpinDown;
  4748.   end;
  4749.  
  4750.   TImageBeforeDragOver = procedure(Sender: TObject; const Cancel: ReturnBoolean; const Data: DataObject; X, Y: Single; DragState: fmDragState; const Effect: ReturnEffect; Shift: Smallint) of object;
  4751.   TImageBeforeDropOrPaste = procedure(Sender: TObject; const Cancel: ReturnBoolean; Action: fmAction; const Data: DataObject; X, Y: Single; const Effect: ReturnEffect; Shift: Smallint) of object;
  4752.   TImageError = procedure(Sender: TObject; Number: Smallint; const Description: ReturnString; SCode: Integer; const Source, HelpFile: WideString; HelpContext: Integer; const CancelDisplay: ReturnBoolean) of object;
  4753.  
  4754.   TImage = class(TOleControl)
  4755.   private
  4756.     FOnBeforeDragOver: TImageBeforeDragOver;
  4757.     FOnBeforeDropOrPaste: TImageBeforeDropOrPaste;
  4758.     FOnError: TImageError;
  4759.     FIntf: IImage;
  4760.     function GetControlInterface: IImage;
  4761.   protected
  4762.     procedure CreateControl;
  4763.     procedure InitControlData; override;
  4764.     function GetTOleEnumProp(Index: Integer): TOleEnum;
  4765.     procedure SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  4766.   public
  4767.     property ControlInterface: IImage read GetControlInterface;
  4768.   published
  4769.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  4770.     property MousePointer: fmMousePointer index -521 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4771.     property AutoSize: WordBool index -500 read GetWordBoolProp write SetWordBoolProp stored False;
  4772.     property BackColor: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  4773.     property BackStyle: fmBackStyle index -502 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4774.     property BorderColor: TColor index -503 read GetTColorProp write SetTColorProp stored False;
  4775.     property BorderStyle: fmBorderStyle index -504 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4776.     property Picture: TPicture index -523 read GetTPictureProp write SetTPictureProp stored False;
  4777.     property MouseIcon: TPicture index -522 read GetTPictureProp write SetTPictureProp stored False;
  4778.     property PictureSizeMode: fmPictureSizeMode index 27 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4779.     property PictureAlignment: fmPictureAlignment index 26 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4780.     property PictureTiling: WordBool index 28 read GetWordBoolProp write SetWordBoolProp stored False;
  4781.     property SpecialEffect: fmSpecialEffect index 12 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4782.     property OnBeforeDragOver: TImageBeforeDragOver read FOnBeforeDragOver write FOnBeforeDragOver;
  4783.     property OnBeforeDropOrPaste: TImageBeforeDropOrPaste read FOnBeforeDropOrPaste write FOnBeforeDropOrPaste;
  4784.     property OnError: TImageError read FOnError write FOnError;
  4785.   end;
  4786.  
  4787.   THTMLSubmit = class(TOleControl)
  4788.   private
  4789.     FIntf: IWHTMLSubmitButton;
  4790.     function GetControlInterface: IWHTMLSubmitButton;
  4791.   protected
  4792.     procedure CreateControl;
  4793.     procedure InitControlData; override;
  4794.     function GetTOleEnumProp(Index: Integer): TOleEnum;
  4795.     procedure SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  4796.   public
  4797.     property ControlInterface: IWHTMLSubmitButton read GetControlInterface;
  4798.     property HTMLType: WideString index 618 read GetWideStringProp write SetWideStringProp;
  4799.   published
  4800.     property Action: WideString index 601 read GetWideStringProp write SetWideStringProp stored False;
  4801.     property Caption: WideString index 602 read GetWideStringProp write SetWideStringProp stored False;
  4802.     property Encoding: WideString index 603 read GetWideStringProp write SetWideStringProp stored False;
  4803.     property Method: WideString index 604 read GetWideStringProp write SetWideStringProp stored False;
  4804.     property HTMLName: WideString index -541 read GetWideStringProp write SetWideStringProp stored False;
  4805.   end;
  4806.  
  4807.   THTMLImage = class(TOleControl)
  4808.   private
  4809.     FIntf: IWHTMLImage;
  4810.     function GetControlInterface: IWHTMLImage;
  4811.   protected
  4812.     procedure CreateControl;
  4813.     procedure InitControlData; override;
  4814.     function GetTOleEnumProp(Index: Integer): TOleEnum;
  4815.     procedure SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  4816.   public
  4817.     property ControlInterface: IWHTMLImage read GetControlInterface;
  4818.     property HTMLType: WideString index 618 read GetWideStringProp write SetWideStringProp;
  4819.   published
  4820.     property Action: WideString index 601 read GetWideStringProp write SetWideStringProp stored False;
  4821.     property Source: WideString index 606 read GetWideStringProp write SetWideStringProp stored False;
  4822.     property Encoding: WideString index 603 read GetWideStringProp write SetWideStringProp stored False;
  4823.     property Method: WideString index 604 read GetWideStringProp write SetWideStringProp stored False;
  4824.     property HTMLName: WideString index -541 read GetWideStringProp write SetWideStringProp stored False;
  4825.   end;
  4826.  
  4827.   THTMLReset = class(TOleControl)
  4828.   private
  4829.     FIntf: IWHTMLReset;
  4830.     function GetControlInterface: IWHTMLReset;
  4831.   protected
  4832.     procedure CreateControl;
  4833.     procedure InitControlData; override;
  4834.     function GetTOleEnumProp(Index: Integer): TOleEnum;
  4835.     procedure SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  4836.   public
  4837.     property ControlInterface: IWHTMLReset read GetControlInterface;
  4838.     property HTMLType: WideString index 618 read GetWideStringProp write SetWideStringProp;
  4839.   published
  4840.     property Caption: WideString index 602 read GetWideStringProp write SetWideStringProp stored False;
  4841.     property HTMLName: WideString index -541 read GetWideStringProp write SetWideStringProp stored False;
  4842.   end;
  4843.  
  4844.   THTMLCheckbox = class(TOleControl)
  4845.   private
  4846.     FIntf: IWHTMLCheckbox;
  4847.     function GetControlInterface: IWHTMLCheckbox;
  4848.   protected
  4849.     procedure CreateControl;
  4850.     procedure InitControlData; override;
  4851.     function GetTOleEnumProp(Index: Integer): TOleEnum;
  4852.     procedure SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  4853.   public
  4854.     property ControlInterface: IWHTMLCheckbox read GetControlInterface;
  4855.     property HTMLType: WideString index 618 read GetWideStringProp write SetWideStringProp;
  4856.   published
  4857.     property HTMLName: WideString index -541 read GetWideStringProp write SetWideStringProp stored False;
  4858.     property Value: WideString index 607 read GetWideStringProp write SetWideStringProp stored False;
  4859.     property Checked: WordBool index 0 read GetWordBoolProp write SetWordBoolProp stored False;
  4860.   end;
  4861.  
  4862.   THTMLOption = class(TOleControl)
  4863.   private
  4864.     FIntf: IWHTMLOption;
  4865.     function GetControlInterface: IWHTMLOption;
  4866.   protected
  4867.     procedure CreateControl;
  4868.     procedure InitControlData; override;
  4869.     function GetTOleEnumProp(Index: Integer): TOleEnum;
  4870.     procedure SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  4871.   public
  4872.     property ControlInterface: IWHTMLOption read GetControlInterface;
  4873.     property HTMLType: WideString index 618 read GetWideStringProp write SetWideStringProp;
  4874.     property DisplayStyle: fmDisplayStyle index -540 read GetTOleEnumProp;
  4875.   published
  4876.     property HTMLName: WideString index -541 read GetWideStringProp write SetWideStringProp stored False;
  4877.     property Value: WideString index 607 read GetWideStringProp write SetWideStringProp stored False;
  4878.     property Checked: WordBool index 0 read GetWordBoolProp write SetWordBoolProp stored False;
  4879.   end;
  4880.  
  4881.   THTMLText = class(TOleControl)
  4882.   private
  4883.     FIntf: IWHTMLText;
  4884.     function GetControlInterface: IWHTMLText;
  4885.   protected
  4886.     procedure CreateControl;
  4887.     procedure InitControlData; override;
  4888.     function GetTOleEnumProp(Index: Integer): TOleEnum;
  4889.     procedure SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  4890.   public
  4891.     property ControlInterface: IWHTMLText read GetControlInterface;
  4892.     property HTMLType: WideString index 618 read GetWideStringProp write SetWideStringProp;
  4893.   published
  4894.     property HTMLName: WideString index -541 read GetWideStringProp write SetWideStringProp stored False;
  4895.     property Value: WideString index 0 read GetWideStringProp write SetWideStringProp stored False;
  4896.     property MaxLength: Integer index 609 read GetIntegerProp write SetIntegerProp stored False;
  4897.   end;
  4898.  
  4899.   THTMLHidden = class(TOleControl)
  4900.   private
  4901.     FIntf: IWHTMLHidden;
  4902.     function GetControlInterface: IWHTMLHidden;
  4903.   protected
  4904.     procedure CreateControl;
  4905.     procedure InitControlData; override;
  4906.     function GetTOleEnumProp(Index: Integer): TOleEnum;
  4907.     procedure SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  4908.   public
  4909.     property ControlInterface: IWHTMLHidden read GetControlInterface;
  4910.     property HTMLType: WideString index 618 read GetWideStringProp write SetWideStringProp;
  4911.   published
  4912.     property HTMLName: WideString index -541 read GetWideStringProp write SetWideStringProp stored False;
  4913.     property Value: WideString index 0 read GetWideStringProp write SetWideStringProp stored False;
  4914.   end;
  4915.  
  4916.   THTMLPassword = class(TOleControl)
  4917.   private
  4918.     FIntf: IWHTMLPassword;
  4919.     function GetControlInterface: IWHTMLPassword;
  4920.   protected
  4921.     procedure CreateControl;
  4922.     procedure InitControlData; override;
  4923.     function GetTOleEnumProp(Index: Integer): TOleEnum;
  4924.     procedure SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  4925.   public
  4926.     property ControlInterface: IWHTMLPassword read GetControlInterface;
  4927.     property HTMLType: WideString index 618 read GetWideStringProp write SetWideStringProp;
  4928.   published
  4929.     property HTMLName: WideString index -541 read GetWideStringProp write SetWideStringProp stored False;
  4930.     property Value: WideString index 0 read GetWideStringProp write SetWideStringProp stored False;
  4931.     property MaxLength: Integer index 609 read GetIntegerProp write SetIntegerProp stored False;
  4932.   end;
  4933.  
  4934.   THTMLSelect = class(TOleControl)
  4935.   private
  4936.     FIntf: IWHTMLSelect;
  4937.     function GetControlInterface: IWHTMLSelect;
  4938.     function Get_Values: OleVariant;
  4939.     procedure Set_Values(Value: OleVariant);
  4940.     function Get_DisplayValues: OleVariant;
  4941.     procedure Set_DisplayValues(Value: OleVariant);
  4942.   protected
  4943.     procedure CreateControl;
  4944.     procedure InitControlData; override;
  4945.     function GetTOleEnumProp(Index: Integer): TOleEnum;
  4946.     procedure SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  4947.   public
  4948.     property ControlInterface: IWHTMLSelect read GetControlInterface;
  4949.   published
  4950.     property HTMLName: WideString index -541 read GetWideStringProp write SetWideStringProp stored False;
  4951.     property Values: OleVariant read Get_Values write Set_Values stored False;
  4952.     property DisplayValues: OleVariant read Get_DisplayValues write Set_DisplayValues stored False;
  4953.     property Selected: WideString index 613 read GetWideStringProp write SetWideStringProp stored False;
  4954.     property MultiSelect: WordBool index 614 read GetWordBoolProp write SetWordBoolProp stored False;
  4955.     property Size: Integer index 619 read GetIntegerProp write SetIntegerProp stored False;
  4956.   end;
  4957.  
  4958.   THTMLTextArea = class(TOleControl)
  4959.   private
  4960.     FIntf: IWHTMLTextArea;
  4961.     function GetControlInterface: IWHTMLTextArea;
  4962.   protected
  4963.     procedure CreateControl;
  4964.     procedure InitControlData; override;
  4965.     function GetTOleEnumProp(Index: Integer): TOleEnum;
  4966.     procedure SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  4967.   public
  4968.     property ControlInterface: IWHTMLTextArea read GetControlInterface;
  4969.   published
  4970.     property HTMLName: WideString index -541 read GetWideStringProp write SetWideStringProp stored False;
  4971.     property Value: WideString index 0 read GetWideStringProp write SetWideStringProp stored False;
  4972.     property Rows: Integer index 615 read GetIntegerProp write SetIntegerProp stored False;
  4973.     property Columns: Integer index 616 read GetIntegerProp write SetIntegerProp stored False;
  4974.     property WordWrap: WideString index 617 read GetWideStringProp write SetWideStringProp stored False;
  4975.   end;
  4976.  
  4977.   TMultiPageAddControl = procedure(Sender: TObject; Index: Integer; const Control: Control) of object;
  4978.   TMultiPageBeforeDragOver = procedure(Sender: TObject; Index: Integer; const Cancel: ReturnBoolean; const Control: Control; const Data: DataObject; X, Y: Single; State: fmDragState; const Effect: ReturnEffect; Shift: Smallint) of object;
  4979.   TMultiPageBeforeDropOrPaste = procedure(Sender: TObject; Index: Integer; const Cancel: ReturnBoolean; const Control: Control; Action: fmAction; const Data: DataObject; X, Y: Single; const Effect: ReturnEffect; Shift: Smallint) of object;
  4980.   TMultiPageError = procedure(Sender: TObject; Index: Integer; Number: Smallint; const Description: ReturnString; SCode: Integer; const Source, HelpFile: WideString; HelpContext: Integer; const CancelDisplay: ReturnBoolean) of object;
  4981.   TMultiPageLayout = procedure(Sender: TObject; Index: Integer) of object;
  4982.   TMultiPageRemoveControl = procedure(Sender: TObject; Index: Integer; const Control: Control) of object;
  4983.   TMultiPageScroll = procedure(Sender: TObject; Index: Integer; ActionX, ActionY: fmScrollAction; RequestDx, RequestDy: Single; const ActualDx, ActualDy: ReturnSingle) of object;
  4984.   TMultiPageZoom = procedure(Sender: TObject; Index: Integer; var Percent: Smallint) of object;
  4985.  
  4986.   TMultiPage = class(TOleControl)
  4987.   private
  4988.     FOnAddControl: TMultiPageAddControl;
  4989.     FOnBeforeDragOver: TMultiPageBeforeDragOver;
  4990.     FOnBeforeDropOrPaste: TMultiPageBeforeDropOrPaste;
  4991.     FOnChange: TNotifyEvent;
  4992.     FOnError: TMultiPageError;
  4993.     FOnLayout: TMultiPageLayout;
  4994.     FOnRemoveControl: TMultiPageRemoveControl;
  4995.     FOnScroll: TMultiPageScroll;
  4996.     FOnZoom: TMultiPageZoom;
  4997.     FIntf: IMultiPage;
  4998.     function GetControlInterface: IMultiPage;
  4999.     function Get_SelectedItem: Page;
  5000.     function Get_Pages: Pages;
  5001.   protected
  5002.     procedure CreateControl;
  5003.     procedure InitControlData; override;
  5004.     function GetTOleEnumProp(Index: Integer): TOleEnum;
  5005.     procedure SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  5006.   public
  5007.     procedure _SetTabFixedWidth(Width: Integer);
  5008.     procedure _GetTabFixedWidth(out Width: Integer);
  5009.     procedure _SetTabFixedHeight(Height: Integer);
  5010.     procedure _GetTabFixedHeight(out Height: Integer);
  5011.     property ControlInterface: IMultiPage read GetControlInterface;
  5012.     property _Font_Reserved: TFont index 2147483135 write SetTFontProp;
  5013.     property FontName: WideString index 1 read GetWideStringProp write SetWideStringProp;
  5014.     property FontBold: WordBool index 3 read GetWordBoolProp write SetWordBoolProp;
  5015.     property FontItalic: WordBool index 4 read GetWordBoolProp write SetWordBoolProp;
  5016.     property FontUnderline: WordBool index 5 read GetWordBoolProp write SetWordBoolProp;
  5017.     property FontStrikethru: WordBool index 6 read GetWordBoolProp write SetWordBoolProp;
  5018.     property FontSize: Currency index 2 read GetCurrencyProp write SetCurrencyProp;
  5019.     property SelectedItem: Page read Get_SelectedItem;
  5020.     property Pages: Pages read Get_Pages;
  5021.     property FontWeight: Smallint index 7 read GetSmallintProp write SetSmallintProp;
  5022.   published
  5023.     property BackColor: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  5024.     property ForeColor: TColor index -513 read GetTColorProp write SetTColorProp stored False;
  5025.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  5026.     property MultiRow: WordBool index 514 read GetWordBoolProp write SetWordBoolProp stored False;
  5027.     property Style: fmTabStyle index 513 read GetTOleEnumProp write SetTOleEnumProp stored False;
  5028.     property TabOrientation: fmTabOrientation index 512 read GetTOleEnumProp write SetTOleEnumProp stored False;
  5029.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  5030.     property Value: Integer index 528 read GetIntegerProp write SetIntegerProp stored False;
  5031.     property TabFixedWidth: Single index 515 read GetSingleProp write SetSingleProp stored False;
  5032.     property TabFixedHeight: Single index 516 read GetSingleProp write SetSingleProp stored False;
  5033.     property OnAddControl: TMultiPageAddControl read FOnAddControl write FOnAddControl;
  5034.     property OnBeforeDragOver: TMultiPageBeforeDragOver read FOnBeforeDragOver write FOnBeforeDragOver;
  5035.     property OnBeforeDropOrPaste: TMultiPageBeforeDropOrPaste read FOnBeforeDropOrPaste write FOnBeforeDropOrPaste;
  5036.     property OnChange: TNotifyEvent read FOnChange write FOnChange;
  5037.     property OnError: TMultiPageError read FOnError write FOnError;
  5038.     property OnLayout: TMultiPageLayout read FOnLayout write FOnLayout;
  5039.     property OnRemoveControl: TMultiPageRemoveControl read FOnRemoveControl write FOnRemoveControl;
  5040.     property OnScroll: TMultiPageScroll read FOnScroll write FOnScroll;
  5041.     property OnZoom: TMultiPageZoom read FOnZoom write FOnZoom;
  5042.   end;
  5043.  
  5044. procedure Register;
  5045.  
  5046. implementation
  5047.  
  5048. uses ComObj;
  5049.  
  5050. class function CoReturnInteger.Create: IReturnInteger;
  5051. begin
  5052.   Result := CreateComObject(Class_ReturnInteger) as IReturnInteger;
  5053. end;
  5054.  
  5055. class function CoReturnInteger.CreateRemote(const MachineName: string): IReturnInteger;
  5056. begin
  5057.   Result := CreateRemoteComObject(MachineName, Class_ReturnInteger) as IReturnInteger;
  5058. end;
  5059.  
  5060. class function CoReturnBoolean.Create: IReturnBoolean;
  5061. begin
  5062.   Result := CreateComObject(Class_ReturnBoolean) as IReturnBoolean;
  5063. end;
  5064.  
  5065. class function CoReturnBoolean.CreateRemote(const MachineName: string): IReturnBoolean;
  5066. begin
  5067.   Result := CreateRemoteComObject(MachineName, Class_ReturnBoolean) as IReturnBoolean;
  5068. end;
  5069.  
  5070. class function CoReturnString.Create: IReturnString;
  5071. begin
  5072.   Result := CreateComObject(Class_ReturnString) as IReturnString;
  5073. end;
  5074.  
  5075. class function CoReturnString.CreateRemote(const MachineName: string): IReturnString;
  5076. begin
  5077.   Result := CreateRemoteComObject(MachineName, Class_ReturnString) as IReturnString;
  5078. end;
  5079.  
  5080. class function CoReturnSingle.Create: IReturnSingle;
  5081. begin
  5082.   Result := CreateComObject(Class_ReturnSingle) as IReturnSingle;
  5083. end;
  5084.  
  5085. class function CoReturnSingle.CreateRemote(const MachineName: string): IReturnSingle;
  5086. begin
  5087.   Result := CreateRemoteComObject(MachineName, Class_ReturnSingle) as IReturnSingle;
  5088. end;
  5089.  
  5090. class function CoReturnEffect.Create: IReturnEffect;
  5091. begin
  5092.   Result := CreateComObject(Class_ReturnEffect) as IReturnEffect;
  5093. end;
  5094.  
  5095. class function CoReturnEffect.CreateRemote(const MachineName: string): IReturnEffect;
  5096. begin
  5097.   Result := CreateRemoteComObject(MachineName, Class_ReturnEffect) as IReturnEffect;
  5098. end;
  5099.  
  5100. class function CoDataObject.Create: IDataAutoWrapper;
  5101. begin
  5102.   Result := CreateComObject(Class_DataObject) as IDataAutoWrapper;
  5103. end;
  5104.  
  5105. class function CoDataObject.CreateRemote(const MachineName: string): IDataAutoWrapper;
  5106. begin
  5107.   Result := CreateRemoteComObject(MachineName, Class_DataObject) as IDataAutoWrapper;
  5108. end;
  5109.  
  5110. class function CoControl.Create: IControl;
  5111. begin
  5112.   Result := CreateComObject(Class_Control) as IControl;
  5113. end;
  5114.  
  5115. class function CoControl.CreateRemote(const MachineName: string): IControl;
  5116. begin
  5117.   Result := CreateRemoteComObject(MachineName, Class_Control) as IControl;
  5118. end;
  5119.  
  5120. class function CoNewFont.Create: Font;
  5121. begin
  5122.   Result := CreateComObject(Class_NewFont) as Font;
  5123. end;
  5124.  
  5125. class function CoNewFont.CreateRemote(const MachineName: string): Font;
  5126. begin
  5127.   Result := CreateRemoteComObject(MachineName, Class_NewFont) as Font;
  5128. end;
  5129.  
  5130. class function CoPage.Create: IPage;
  5131. begin
  5132.   Result := CreateComObject(Class_Page) as IPage;
  5133. end;
  5134.  
  5135. class function CoPage.CreateRemote(const MachineName: string): IPage;
  5136. begin
  5137.   Result := CreateRemoteComObject(MachineName, Class_Page) as IPage;
  5138. end;
  5139.  
  5140. procedure TUserForm.InitControlData;
  5141. const
  5142.   CEventDispIDs: array[0..7] of Integer = (
  5143.     $00000300, $00000003, $00000004, $FFFFFDA0, $00000302, $00000303,
  5144.     $00000304, $00000305);
  5145.   CTFontIDs: array [0..1] of Integer = (
  5146.     $7FFFFDFF, $FFFFFE00);
  5147.   CTPictureIDs: array [0..1] of Integer = (
  5148.     $FFFFFDF6, $FFFFFDF5);
  5149.   CControlData: TControlData = (
  5150.     ClassID: '{C62A69F0-16DC-11CE-9E98-00AA00574A4F}';
  5151.     EventIID: '{5B9D8FC8-4A71-101B-97A6-00000B65C08B}';
  5152.     EventCount: 8;
  5153.     EventDispIDs: @CEventDispIDs;
  5154.     LicenseKey: nil;
  5155.     Flags: $0000001F;
  5156.     Version: 300;
  5157.     FontCount: 2;
  5158.     FontIDs: @CTFontIDs;
  5159.     PictureCount: 2;
  5160.     PictureIDs: @CTPictureIDs);
  5161. begin
  5162.   ControlData := @CControlData;
  5163. end;
  5164.  
  5165. procedure TUserForm.CreateControl;
  5166.  
  5167.   procedure DoCreate;
  5168.   begin
  5169.     FIntf := IUnknown(OleObject) as _UserForm;
  5170.   end;
  5171.  
  5172. begin
  5173.   if FIntf = nil then DoCreate;
  5174. end;
  5175.  
  5176. function TUserForm.GetControlInterface: _UserForm;
  5177. begin
  5178.   CreateControl;
  5179.   Result := FIntf;
  5180. end;
  5181.  
  5182. function TUserForm.GetTOleEnumProp(Index: Integer): TOleEnum;
  5183. begin
  5184.   Result := GetIntegerProp(Index);
  5185. end;
  5186.  
  5187. procedure TUserForm.SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  5188. begin
  5189.   SetIntegerProp(Index, Value);
  5190. end;
  5191.  
  5192. procedure TUserForm._GetInsideHeight(out InsideHeight: Integer);
  5193. begin
  5194.   CreateControl;
  5195.   FIntf._GetInsideHeight(InsideHeight);
  5196. end;
  5197.  
  5198. procedure TUserForm._GetInsideWidth(out InsideWidth: Integer);
  5199. begin
  5200.   CreateControl;
  5201.   FIntf._GetInsideWidth(InsideWidth);
  5202. end;
  5203.  
  5204. procedure TUserForm._SetScrollHeight(ScrollHeight: Integer);
  5205. begin
  5206.   CreateControl;
  5207.   FIntf._SetScrollHeight(ScrollHeight);
  5208. end;
  5209.  
  5210. procedure TUserForm._GetScrollHeight(out ScrollHeight: Integer);
  5211. begin
  5212.   CreateControl;
  5213.   FIntf._GetScrollHeight(ScrollHeight);
  5214. end;
  5215.  
  5216. procedure TUserForm._SetScrollLeft(ScrollLeft: Integer);
  5217. begin
  5218.   CreateControl;
  5219.   FIntf._SetScrollLeft(ScrollLeft);
  5220. end;
  5221.  
  5222. procedure TUserForm._GetScrollLeft(out ScrollLeft: Integer);
  5223. begin
  5224.   CreateControl;
  5225.   FIntf._GetScrollLeft(ScrollLeft);
  5226. end;
  5227.  
  5228. procedure TUserForm._SetScrollTop(ScrollTop: Integer);
  5229. begin
  5230.   CreateControl;
  5231.   FIntf._SetScrollTop(ScrollTop);
  5232. end;
  5233.  
  5234. procedure TUserForm._GetScrollTop(out ScrollTop: Integer);
  5235. begin
  5236.   CreateControl;
  5237.   FIntf._GetScrollTop(ScrollTop);
  5238. end;
  5239.  
  5240. procedure TUserForm._SetScrollWidth(ScrollWidth: Integer);
  5241. begin
  5242.   CreateControl;
  5243.   FIntf._SetScrollWidth(ScrollWidth);
  5244. end;
  5245.  
  5246. procedure TUserForm._GetScrollWidth(out ScrollWidth: Integer);
  5247. begin
  5248.   CreateControl;
  5249.   FIntf._GetScrollWidth(ScrollWidth);
  5250. end;
  5251.  
  5252. procedure TUserForm.Copy;
  5253. begin
  5254.   CreateControl;
  5255.   FIntf.Copy;
  5256. end;
  5257.  
  5258. procedure TUserForm.Cut;
  5259. begin
  5260.   CreateControl;
  5261.   FIntf.Cut;
  5262. end;
  5263.  
  5264. procedure TUserForm.Paste;
  5265. begin
  5266.   CreateControl;
  5267.   FIntf.Paste;
  5268. end;
  5269.  
  5270. procedure TUserForm.RedoAction;
  5271. begin
  5272.   CreateControl;
  5273.   FIntf.RedoAction;
  5274. end;
  5275.  
  5276. procedure TUserForm.Repaint;
  5277. begin
  5278.   CreateControl;
  5279.   FIntf.Repaint;
  5280. end;
  5281.  
  5282. procedure TUserForm.IOptionFrame_Scroll(xAction, yAction: OleVariant);
  5283. begin
  5284.   CreateControl;
  5285.   FIntf.Scroll(xAction, yAction);
  5286. end;
  5287.  
  5288. procedure TUserForm.SetDefaultTabOrder;
  5289. begin
  5290.   CreateControl;
  5291.   FIntf.SetDefaultTabOrder;
  5292. end;
  5293.  
  5294. procedure TUserForm.UndoAction;
  5295. begin
  5296.   CreateControl;
  5297.   FIntf.UndoAction;
  5298. end;
  5299.  
  5300. procedure TUserForm._SetGridX(GridX: Integer);
  5301. begin
  5302.   CreateControl;
  5303.   FIntf._SetGridX(GridX);
  5304. end;
  5305.  
  5306. procedure TUserForm._GetGridX(out GridX: Integer);
  5307. begin
  5308.   CreateControl;
  5309.   FIntf._GetGridX(GridX);
  5310. end;
  5311.  
  5312. procedure TUserForm._SetGridY(GridY: Integer);
  5313. begin
  5314.   CreateControl;
  5315.   FIntf._SetGridY(GridY);
  5316. end;
  5317.  
  5318. procedure TUserForm._GetGridY(out GridY: Integer);
  5319. begin
  5320.   CreateControl;
  5321.   FIntf._GetGridY(GridY);
  5322. end;
  5323.  
  5324. function TUserForm.Get_ActiveControl: Control;
  5325. begin
  5326.   CreateControl;
  5327.   Result := FIntf.ActiveControl;
  5328. end;
  5329.  
  5330. function TUserForm.Get_Controls: Controls;
  5331. begin
  5332.   CreateControl;
  5333.   Result := FIntf.Controls;
  5334. end;
  5335.  
  5336. function TUserForm.Get_Selected: Controls;
  5337. begin
  5338.   CreateControl;
  5339.   Result := FIntf.Selected;
  5340. end;
  5341.  
  5342.  
  5343. procedure TFrame.InitControlData;
  5344. const
  5345.   CEventDispIDs: array[0..7] of Integer = (
  5346.     $00000300, $00000003, $00000004, $FFFFFDA0, $00000302, $00000303,
  5347.     $00000304, $00000305);
  5348.   CTFontIDs: array [0..1] of Integer = (
  5349.     $7FFFFDFF, $FFFFFE00);
  5350.   CTPictureIDs: array [0..1] of Integer = (
  5351.     $FFFFFDF6, $FFFFFDF5);
  5352.   CControlData: TControlData = (
  5353.     ClassID: '{6E182020-F460-11CE-9BCD-00AA00608E01}';
  5354.     EventIID: '{CF3F94A0-F546-11CE-9BCE-00AA00608E01}';
  5355.     EventCount: 8;
  5356.     EventDispIDs: @CEventDispIDs;
  5357.     LicenseKey: nil;
  5358.     Flags: $0000001F;
  5359.     Version: 300;
  5360.     FontCount: 2;
  5361.     FontIDs: @CTFontIDs;
  5362.     PictureCount: 2;
  5363.     PictureIDs: @CTPictureIDs);
  5364. begin
  5365.   ControlData := @CControlData;
  5366. end;
  5367.  
  5368. procedure TFrame.CreateControl;
  5369.  
  5370.   procedure DoCreate;
  5371.   begin
  5372.     FIntf := IUnknown(OleObject) as IOptionFrame;
  5373.   end;
  5374.  
  5375. begin
  5376.   if FIntf = nil then DoCreate;
  5377. end;
  5378.  
  5379. function TFrame.GetControlInterface: IOptionFrame;
  5380. begin
  5381.   CreateControl;
  5382.   Result := FIntf;
  5383. end;
  5384.  
  5385. function TFrame.GetTOleEnumProp(Index: Integer): TOleEnum;
  5386. begin
  5387.   Result := GetIntegerProp(Index);
  5388. end;
  5389.  
  5390. procedure TFrame.SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  5391. begin
  5392.   SetIntegerProp(Index, Value);
  5393. end;
  5394.  
  5395. procedure TFrame._GetInsideHeight(out InsideHeight: Integer);
  5396. begin
  5397.   CreateControl;
  5398.   FIntf._GetInsideHeight(InsideHeight);
  5399. end;
  5400.  
  5401. procedure TFrame._GetInsideWidth(out InsideWidth: Integer);
  5402. begin
  5403.   CreateControl;
  5404.   FIntf._GetInsideWidth(InsideWidth);
  5405. end;
  5406.  
  5407. procedure TFrame._SetScrollHeight(ScrollHeight: Integer);
  5408. begin
  5409.   CreateControl;
  5410.   FIntf._SetScrollHeight(ScrollHeight);
  5411. end;
  5412.  
  5413. procedure TFrame._GetScrollHeight(out ScrollHeight: Integer);
  5414. begin
  5415.   CreateControl;
  5416.   FIntf._GetScrollHeight(ScrollHeight);
  5417. end;
  5418.  
  5419. procedure TFrame._SetScrollLeft(ScrollLeft: Integer);
  5420. begin
  5421.   CreateControl;
  5422.   FIntf._SetScrollLeft(ScrollLeft);
  5423. end;
  5424.  
  5425. procedure TFrame._GetScrollLeft(out ScrollLeft: Integer);
  5426. begin
  5427.   CreateControl;
  5428.   FIntf._GetScrollLeft(ScrollLeft);
  5429. end;
  5430.  
  5431. procedure TFrame._SetScrollTop(ScrollTop: Integer);
  5432. begin
  5433.   CreateControl;
  5434.   FIntf._SetScrollTop(ScrollTop);
  5435. end;
  5436.  
  5437. procedure TFrame._GetScrollTop(out ScrollTop: Integer);
  5438. begin
  5439.   CreateControl;
  5440.   FIntf._GetScrollTop(ScrollTop);
  5441. end;
  5442.  
  5443. procedure TFrame._SetScrollWidth(ScrollWidth: Integer);
  5444. begin
  5445.   CreateControl;
  5446.   FIntf._SetScrollWidth(ScrollWidth);
  5447. end;
  5448.  
  5449. procedure TFrame._GetScrollWidth(out ScrollWidth: Integer);
  5450. begin
  5451.   CreateControl;
  5452.   FIntf._GetScrollWidth(ScrollWidth);
  5453. end;
  5454.  
  5455. procedure TFrame.Copy;
  5456. begin
  5457.   CreateControl;
  5458.   FIntf.Copy;
  5459. end;
  5460.  
  5461. procedure TFrame.Cut;
  5462. begin
  5463.   CreateControl;
  5464.   FIntf.Cut;
  5465. end;
  5466.  
  5467. procedure TFrame.Paste;
  5468. begin
  5469.   CreateControl;
  5470.   FIntf.Paste;
  5471. end;
  5472.  
  5473. procedure TFrame.RedoAction;
  5474. begin
  5475.   CreateControl;
  5476.   FIntf.RedoAction;
  5477. end;
  5478.  
  5479. procedure TFrame.Repaint;
  5480. begin
  5481.   CreateControl;
  5482.   FIntf.Repaint;
  5483. end;
  5484.  
  5485. procedure TFrame.IOptionFrame_Scroll(xAction, yAction: OleVariant);
  5486. begin
  5487.   CreateControl;
  5488.   FIntf.Scroll(xAction, yAction);
  5489. end;
  5490.  
  5491. procedure TFrame.SetDefaultTabOrder;
  5492. begin
  5493.   CreateControl;
  5494.   FIntf.SetDefaultTabOrder;
  5495. end;
  5496.  
  5497. procedure TFrame.UndoAction;
  5498. begin
  5499.   CreateControl;
  5500.   FIntf.UndoAction;
  5501. end;
  5502.  
  5503. procedure TFrame._SetGridX(GridX: Integer);
  5504. begin
  5505.   CreateControl;
  5506.   FIntf._SetGridX(GridX);
  5507. end;
  5508.  
  5509. procedure TFrame._GetGridX(out GridX: Integer);
  5510. begin
  5511.   CreateControl;
  5512.   FIntf._GetGridX(GridX);
  5513. end;
  5514.  
  5515. procedure TFrame._SetGridY(GridY: Integer);
  5516. begin
  5517.   CreateControl;
  5518.   FIntf._SetGridY(GridY);
  5519. end;
  5520.  
  5521. procedure TFrame._GetGridY(out GridY: Integer);
  5522. begin
  5523.   CreateControl;
  5524.   FIntf._GetGridY(GridY);
  5525. end;
  5526.  
  5527. function TFrame.Get_ActiveControl: Control;
  5528. begin
  5529.   CreateControl;
  5530.   Result := FIntf.ActiveControl;
  5531. end;
  5532.  
  5533. function TFrame.Get_Controls: Controls;
  5534. begin
  5535.   CreateControl;
  5536.   Result := FIntf.Controls;
  5537. end;
  5538.  
  5539. function TFrame.Get_Selected: Controls;
  5540. begin
  5541.   CreateControl;
  5542.   Result := FIntf.Selected;
  5543. end;
  5544.  
  5545.  
  5546. procedure TLabel_.InitControlData;
  5547. const
  5548.   CEventDispIDs: array[0..2] of Integer = (
  5549.     $00000003, $00000004, $FFFFFDA0);
  5550.   CTFontIDs: array [0..1] of Integer = (
  5551.     $7FFFFDFF, $FFFFFE00);
  5552.   CTPictureIDs: array [0..1] of Integer = (
  5553.     $FFFFFDF6, $FFFFFDF5);
  5554.   CControlData: TControlData = (
  5555.     ClassID: '{978C9E23-D4B0-11CE-BF2D-00AA003F40D0}';
  5556.     EventIID: '{978C9E22-D4B0-11CE-BF2D-00AA003F40D0}';
  5557.     EventCount: 3;
  5558.     EventDispIDs: @CEventDispIDs;
  5559.     LicenseKey: nil;
  5560.     Flags: $0000001F;
  5561.     Version: 300;
  5562.     FontCount: 2;
  5563.     FontIDs: @CTFontIDs;
  5564.     PictureCount: 2;
  5565.     PictureIDs: @CTPictureIDs);
  5566. begin
  5567.   ControlData := @CControlData;
  5568. end;
  5569.  
  5570. procedure TLabel_.CreateControl;
  5571.  
  5572.   procedure DoCreate;
  5573.   begin
  5574.     FIntf := IUnknown(OleObject) as ILabelControl;
  5575.   end;
  5576.  
  5577. begin
  5578.   if FIntf = nil then DoCreate;
  5579. end;
  5580.  
  5581. function TLabel_.GetControlInterface: ILabelControl;
  5582. begin
  5583.   CreateControl;
  5584.   Result := FIntf;
  5585. end;
  5586.  
  5587. function TLabel_.GetTOleEnumProp(Index: Integer): TOleEnum;
  5588. begin
  5589.   Result := GetIntegerProp(Index);
  5590. end;
  5591.  
  5592. procedure TLabel_.SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  5593. begin
  5594.   SetIntegerProp(Index, Value);
  5595. end;
  5596.  
  5597.  
  5598. procedure TCommandButton.InitControlData;
  5599. const
  5600.   CEventDispIDs: array[0..2] of Integer = (
  5601.     $00000003, $00000004, $FFFFFDA0);
  5602.   CTFontIDs: array [0..1] of Integer = (
  5603.     $7FFFFDFF, $FFFFFE00);
  5604.   CTPictureIDs: array [0..1] of Integer = (
  5605.     $FFFFFDF6, $FFFFFDF5);
  5606.   CControlData: TControlData = (
  5607.     ClassID: '{D7053240-CE69-11CD-A777-00DD01143C57}';
  5608.     EventIID: '{7B020EC1-AF6C-11CE-9F46-00AA00574A4F}';
  5609.     EventCount: 3;
  5610.     EventDispIDs: @CEventDispIDs;
  5611.     LicenseKey: nil;
  5612.     Flags: $0000001F;
  5613.     Version: 300;
  5614.     FontCount: 2;
  5615.     FontIDs: @CTFontIDs;
  5616.     PictureCount: 2;
  5617.     PictureIDs: @CTPictureIDs);
  5618. begin
  5619.   ControlData := @CControlData;
  5620. end;
  5621.  
  5622. procedure TCommandButton.CreateControl;
  5623.  
  5624.   procedure DoCreate;
  5625.   begin
  5626.     FIntf := IUnknown(OleObject) as ICommandButton;
  5627.   end;
  5628.  
  5629. begin
  5630.   if FIntf = nil then DoCreate;
  5631. end;
  5632.  
  5633. function TCommandButton.GetControlInterface: ICommandButton;
  5634. begin
  5635.   CreateControl;
  5636.   Result := FIntf;
  5637. end;
  5638.  
  5639. function TCommandButton.GetTOleEnumProp(Index: Integer): TOleEnum;
  5640. begin
  5641.   Result := GetIntegerProp(Index);
  5642. end;
  5643.  
  5644. procedure TCommandButton.SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  5645. begin
  5646.   SetIntegerProp(Index, Value);
  5647. end;
  5648.  
  5649.  
  5650. procedure TTextBox.InitControlData;
  5651. const
  5652.   CEventDispIDs: array[0..4] of Integer = (
  5653.     $00000003, $00000004, $00000002, $000007D2, $FFFFFDA0);
  5654.   CTFontIDs: array [0..1] of Integer = (
  5655.     $7FFFFDFF, $FFFFFE00);
  5656.   CTPictureIDs: array [0..0] of Integer = (
  5657.     $FFFFFDF6);
  5658.   CControlData: TControlData = (
  5659.     ClassID: '{8BD21D10-EC42-11CE-9E0D-00AA006002F3}';
  5660.     EventIID: '{8BD21D12-EC42-11CE-9E0D-00AA006002F3}';
  5661.     EventCount: 5;
  5662.     EventDispIDs: @CEventDispIDs;
  5663.     LicenseKey: nil;
  5664.     Flags: $0000002F;
  5665.     Version: 300;
  5666.     FontCount: 2;
  5667.     FontIDs: @CTFontIDs;
  5668.     PictureCount: 1;
  5669.     PictureIDs: @CTPictureIDs);
  5670. begin
  5671.   ControlData := @CControlData;
  5672. end;
  5673.  
  5674. procedure TTextBox.CreateControl;
  5675.  
  5676.   procedure DoCreate;
  5677.   begin
  5678.     FIntf := IUnknown(OleObject) as IMdcText;
  5679.   end;
  5680.  
  5681. begin
  5682.   if FIntf = nil then DoCreate;
  5683. end;
  5684.  
  5685. function TTextBox.GetControlInterface: IMdcText;
  5686. begin
  5687.   CreateControl;
  5688.   Result := FIntf;
  5689. end;
  5690.  
  5691. function TTextBox.GetTOleEnumProp(Index: Integer): TOleEnum;
  5692. begin
  5693.   Result := GetIntegerProp(Index);
  5694. end;
  5695.  
  5696. procedure TTextBox.SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  5697. begin
  5698.   SetIntegerProp(Index, Value);
  5699. end;
  5700.  
  5701. procedure TTextBox.Copy;
  5702. begin
  5703.   CreateControl;
  5704.   FIntf.Copy;
  5705. end;
  5706.  
  5707. procedure TTextBox.Cut;
  5708. begin
  5709.   CreateControl;
  5710.   FIntf.Cut;
  5711. end;
  5712.  
  5713. procedure TTextBox.Paste;
  5714. begin
  5715.   CreateControl;
  5716.   FIntf.Paste;
  5717. end;
  5718.  
  5719. function TTextBox.Get_Value: OleVariant;
  5720. begin
  5721.   CreateControl;
  5722.   Result := FIntf.Value;
  5723. end;
  5724.  
  5725. procedure TTextBox.Set_Value(Value: OleVariant);
  5726. begin
  5727.   CreateControl;
  5728.   FIntf.Value := Value;
  5729. end;
  5730.  
  5731.  
  5732. procedure TListBox.InitControlData;
  5733. const
  5734.   CEventDispIDs: array[0..4] of Integer = (
  5735.     $00000003, $00000004, $00000002, $FFFFFD9E, $FFFFFDA0);
  5736.   CTFontIDs: array [0..1] of Integer = (
  5737.     $7FFFFDFF, $FFFFFE00);
  5738.   CTPictureIDs: array [0..0] of Integer = (
  5739.     $FFFFFDF6);
  5740.   CControlData: TControlData = (
  5741.     ClassID: '{8BD21D20-EC42-11CE-9E0D-00AA006002F3}';
  5742.     EventIID: '{8BD21D22-EC42-11CE-9E0D-00AA006002F3}';
  5743.     EventCount: 5;
  5744.     EventDispIDs: @CEventDispIDs;
  5745.     LicenseKey: nil;
  5746.     Flags: $0000002F;
  5747.     Version: 300;
  5748.     FontCount: 2;
  5749.     FontIDs: @CTFontIDs;
  5750.     PictureCount: 1;
  5751.     PictureIDs: @CTPictureIDs);
  5752. begin
  5753.   ControlData := @CControlData;
  5754. end;
  5755.  
  5756. procedure TListBox.CreateControl;
  5757.  
  5758.   procedure DoCreate;
  5759.   begin
  5760.     FIntf := IUnknown(OleObject) as IMdcList;
  5761.   end;
  5762.  
  5763. begin
  5764.   if FIntf = nil then DoCreate;
  5765. end;
  5766.  
  5767. function TListBox.GetControlInterface: IMdcList;
  5768. begin
  5769.   CreateControl;
  5770.   Result := FIntf;
  5771. end;
  5772.  
  5773. function TListBox.GetTOleEnumProp(Index: Integer): TOleEnum;
  5774. begin
  5775.   Result := GetIntegerProp(Index);
  5776. end;
  5777.  
  5778. procedure TListBox.SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  5779. begin
  5780.   SetIntegerProp(Index, Value);
  5781. end;
  5782.  
  5783. procedure TListBox.AddItem(var pvargItem, pvargIndex: OleVariant);
  5784. begin
  5785.   CreateControl;
  5786.   FIntf.AddItem(pvargItem, pvargIndex);
  5787. end;
  5788.  
  5789. procedure TListBox.Clear;
  5790. begin
  5791.   CreateControl;
  5792.   FIntf.Clear;
  5793. end;
  5794.  
  5795. procedure TListBox.RemoveItem(var pvargIndex: OleVariant);
  5796. begin
  5797.   CreateControl;
  5798.   FIntf.RemoveItem(pvargIndex);
  5799. end;
  5800.  
  5801. function TListBox.Get_BoundColumn: OleVariant;
  5802. begin
  5803.   CreateControl;
  5804.   Result := FIntf.BoundColumn;
  5805. end;
  5806.  
  5807. procedure TListBox.Set_BoundColumn(Value: OleVariant);
  5808. begin
  5809.   CreateControl;
  5810.   FIntf.BoundColumn := Value;
  5811. end;
  5812.  
  5813. function TListBox.Get_ListCursor: PIROWSET;
  5814. begin
  5815.   CreateControl;
  5816.   Result := FIntf.ListCursor;
  5817. end;
  5818.  
  5819. procedure TListBox.Set_ListCursor(Value: PIROWSET);
  5820. begin
  5821.   CreateControl;
  5822.   FIntf.ListCursor := Value;
  5823. end;
  5824.  
  5825. function TListBox.Get_ListIndex: OleVariant;
  5826. begin
  5827.   CreateControl;
  5828.   Result := FIntf.ListIndex;
  5829. end;
  5830.  
  5831. procedure TListBox.Set_ListIndex(Value: OleVariant);
  5832. begin
  5833.   CreateControl;
  5834.   FIntf.ListIndex := Value;
  5835. end;
  5836.  
  5837. function TListBox.Get_ListWidth: OleVariant;
  5838. begin
  5839.   CreateControl;
  5840.   Result := FIntf.ListWidth;
  5841. end;
  5842.  
  5843. procedure TListBox.Set_ListWidth(Value: OleVariant);
  5844. begin
  5845.   CreateControl;
  5846.   FIntf.ListWidth := Value;
  5847. end;
  5848.  
  5849. function TListBox.Get_TextColumn: OleVariant;
  5850. begin
  5851.   CreateControl;
  5852.   Result := FIntf.TextColumn;
  5853. end;
  5854.  
  5855. procedure TListBox.Set_TextColumn(Value: OleVariant);
  5856. begin
  5857.   CreateControl;
  5858.   FIntf.TextColumn := Value;
  5859. end;
  5860.  
  5861. function TListBox.Get_TopIndex: OleVariant;
  5862. begin
  5863.   CreateControl;
  5864.   Result := FIntf.TopIndex;
  5865. end;
  5866.  
  5867. procedure TListBox.Set_TopIndex(Value: OleVariant);
  5868. begin
  5869.   CreateControl;
  5870.   FIntf.TopIndex := Value;
  5871. end;
  5872.  
  5873. function TListBox.Get_Value: OleVariant;
  5874. begin
  5875.   CreateControl;
  5876.   Result := FIntf.Value;
  5877. end;
  5878.  
  5879. procedure TListBox.Set_Value(Value: OleVariant);
  5880. begin
  5881.   CreateControl;
  5882.   FIntf.Value := Value;
  5883. end;
  5884.  
  5885. function TListBox.Get_Column(var pvargColumn, pvargIndex: OleVariant): OleVariant;
  5886. begin
  5887.   CreateControl;
  5888.   Result := FIntf.Column[pvargColumn, pvargIndex];
  5889. end;
  5890.  
  5891. procedure TListBox.Set_Column(var pvargColumn, pvargIndex: OleVariant; Value: OleVariant);
  5892. begin
  5893.   CreateControl;
  5894.   FIntf.Column[pvargColumn, pvargIndex] := Value;
  5895. end;
  5896.  
  5897. function TListBox.Get_List(var pvargIndex, pvargColumn: OleVariant): OleVariant;
  5898. begin
  5899.   CreateControl;
  5900.   Result := FIntf.List[pvargIndex, pvargColumn];
  5901. end;
  5902.  
  5903. procedure TListBox.Set_List(var pvargIndex, pvargColumn: OleVariant; Value: OleVariant);
  5904. begin
  5905.   CreateControl;
  5906.   FIntf.List[pvargIndex, pvargColumn] := Value;
  5907. end;
  5908.  
  5909. function TListBox.Get_Selected(var pvargIndex: OleVariant): WordBool;
  5910. begin
  5911.   CreateControl;
  5912.   Result := FIntf.Selected[pvargIndex];
  5913. end;
  5914.  
  5915. procedure TListBox.Set_Selected(var pvargIndex: OleVariant; Value: WordBool);
  5916. begin
  5917.   CreateControl;
  5918.   FIntf.Selected[pvargIndex] := Value;
  5919. end;
  5920.  
  5921.  
  5922. procedure TComboBox.InitControlData;
  5923. const
  5924.   CEventDispIDs: array[0..5] of Integer = (
  5925.     $00000003, $00000004, $00000002, $FFFFFD9E, $000007D2, $FFFFFDA0);
  5926.   CTFontIDs: array [0..1] of Integer = (
  5927.     $7FFFFDFF, $FFFFFE00);
  5928.   CTPictureIDs: array [0..0] of Integer = (
  5929.     $FFFFFDF6);
  5930.   CControlData: TControlData = (
  5931.     ClassID: '{8BD21D30-EC42-11CE-9E0D-00AA006002F3}';
  5932.     EventIID: '{8BD21D32-EC42-11CE-9E0D-00AA006002F3}';
  5933.     EventCount: 6;
  5934.     EventDispIDs: @CEventDispIDs;
  5935.     LicenseKey: nil;
  5936.     Flags: $0000002F;
  5937.     Version: 300;
  5938.     FontCount: 2;
  5939.     FontIDs: @CTFontIDs;
  5940.     PictureCount: 1;
  5941.     PictureIDs: @CTPictureIDs);
  5942. begin
  5943.   ControlData := @CControlData;
  5944. end;
  5945.  
  5946. procedure TComboBox.CreateControl;
  5947.  
  5948.   procedure DoCreate;
  5949.   begin
  5950.     FIntf := IUnknown(OleObject) as IMdcCombo;
  5951.   end;
  5952.  
  5953. begin
  5954.   if FIntf = nil then DoCreate;
  5955. end;
  5956.  
  5957. function TComboBox.GetControlInterface: IMdcCombo;
  5958. begin
  5959.   CreateControl;
  5960.   Result := FIntf;
  5961. end;
  5962.  
  5963. function TComboBox.GetTOleEnumProp(Index: Integer): TOleEnum;
  5964. begin
  5965.   Result := GetIntegerProp(Index);
  5966. end;
  5967.  
  5968. procedure TComboBox.SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  5969. begin
  5970.   SetIntegerProp(Index, Value);
  5971. end;
  5972.  
  5973. procedure TComboBox.AddItem(var pvargItem, pvargIndex: OleVariant);
  5974. begin
  5975.   CreateControl;
  5976.   FIntf.AddItem(pvargItem, pvargIndex);
  5977. end;
  5978.  
  5979. procedure TComboBox.Clear;
  5980. begin
  5981.   CreateControl;
  5982.   FIntf.Clear;
  5983. end;
  5984.  
  5985. procedure TComboBox.DropDown;
  5986. begin
  5987.   CreateControl;
  5988.   FIntf.DropDown;
  5989. end;
  5990.  
  5991. procedure TComboBox.RemoveItem(var pvargIndex: OleVariant);
  5992. begin
  5993.   CreateControl;
  5994.   FIntf.RemoveItem(pvargIndex);
  5995. end;
  5996.  
  5997. procedure TComboBox.Copy;
  5998. begin
  5999.   CreateControl;
  6000.   FIntf.Copy;
  6001. end;
  6002.  
  6003. procedure TComboBox.Cut;
  6004. begin
  6005.   CreateControl;
  6006.   FIntf.Cut;
  6007. end;
  6008.  
  6009. procedure TComboBox.Paste;
  6010. begin
  6011.   CreateControl;
  6012.   FIntf.Paste;
  6013. end;
  6014.  
  6015. function TComboBox.Get_BoundColumn: OleVariant;
  6016. begin
  6017.   CreateControl;
  6018.   Result := FIntf.BoundColumn;
  6019. end;
  6020.  
  6021. procedure TComboBox.Set_BoundColumn(Value: OleVariant);
  6022. begin
  6023.   CreateControl;
  6024.   FIntf.BoundColumn := Value;
  6025. end;
  6026.  
  6027. function TComboBox.Get_ListCursor: PIROWSET;
  6028. begin
  6029.   CreateControl;
  6030.   Result := FIntf.ListCursor;
  6031. end;
  6032.  
  6033. procedure TComboBox.Set_ListCursor(Value: PIROWSET);
  6034. begin
  6035.   CreateControl;
  6036.   FIntf.ListCursor := Value;
  6037. end;
  6038.  
  6039. function TComboBox.Get_ListIndex: OleVariant;
  6040. begin
  6041.   CreateControl;
  6042.   Result := FIntf.ListIndex;
  6043. end;
  6044.  
  6045. procedure TComboBox.Set_ListIndex(Value: OleVariant);
  6046. begin
  6047.   CreateControl;
  6048.   FIntf.ListIndex := Value;
  6049. end;
  6050.  
  6051. function TComboBox.Get_ListWidth: OleVariant;
  6052. begin
  6053.   CreateControl;
  6054.   Result := FIntf.ListWidth;
  6055. end;
  6056.  
  6057. procedure TComboBox.Set_ListWidth(Value: OleVariant);
  6058. begin
  6059.   CreateControl;
  6060.   FIntf.ListWidth := Value;
  6061. end;
  6062.  
  6063. function TComboBox.Get_TextColumn: OleVariant;
  6064. begin
  6065.   CreateControl;
  6066.   Result := FIntf.TextColumn;
  6067. end;
  6068.  
  6069. procedure TComboBox.Set_TextColumn(Value: OleVariant);
  6070. begin
  6071.   CreateControl;
  6072.   FIntf.TextColumn := Value;
  6073. end;
  6074.  
  6075. function TComboBox.Get_TopIndex: OleVariant;
  6076. begin
  6077.   CreateControl;
  6078.   Result := FIntf.TopIndex;
  6079. end;
  6080.  
  6081. procedure TComboBox.Set_TopIndex(Value: OleVariant);
  6082. begin
  6083.   CreateControl;
  6084.   FIntf.TopIndex := Value;
  6085. end;
  6086.  
  6087. function TComboBox.Get_Value: OleVariant;
  6088. begin
  6089.   CreateControl;
  6090.   Result := FIntf.Value;
  6091. end;
  6092.  
  6093. procedure TComboBox.Set_Value(Value: OleVariant);
  6094. begin
  6095.   CreateControl;
  6096.   FIntf.Value := Value;
  6097. end;
  6098.  
  6099. function TComboBox.Get_Column(var pvargColumn, pvargIndex: OleVariant): OleVariant;
  6100. begin
  6101.   CreateControl;
  6102.   Result := FIntf.Column[pvargColumn, pvargIndex];
  6103. end;
  6104.  
  6105. procedure TComboBox.Set_Column(var pvargColumn, pvargIndex: OleVariant; Value: OleVariant);
  6106. begin
  6107.   CreateControl;
  6108.   FIntf.Column[pvargColumn, pvargIndex] := Value;
  6109. end;
  6110.  
  6111. function TComboBox.Get_List(var pvargIndex, pvargColumn: OleVariant): OleVariant;
  6112. begin
  6113.   CreateControl;
  6114.   Result := FIntf.List[pvargIndex, pvargColumn];
  6115. end;
  6116.  
  6117. procedure TComboBox.Set_List(var pvargIndex, pvargColumn: OleVariant; Value: OleVariant);
  6118. begin
  6119.   CreateControl;
  6120.   FIntf.List[pvargIndex, pvargColumn] := Value;
  6121. end;
  6122.  
  6123.  
  6124. procedure TCheckBox.InitControlData;
  6125. const
  6126.   CEventDispIDs: array[0..4] of Integer = (
  6127.     $00000003, $00000004, $00000002, $FFFFFD9E, $FFFFFDA0);
  6128.   CTFontIDs: array [0..1] of Integer = (
  6129.     $7FFFFDFF, $FFFFFE00);
  6130.   CTPictureIDs: array [0..1] of Integer = (
  6131.     $FFFFFDF6, $FFFFFDF5);
  6132.   CControlData: TControlData = (
  6133.     ClassID: '{8BD21D40-EC42-11CE-9E0D-00AA006002F3}';
  6134.     EventIID: '{8BD21D42-EC42-11CE-9E0D-00AA006002F3}';
  6135.     EventCount: 5;
  6136.     EventDispIDs: @CEventDispIDs;
  6137.     LicenseKey: nil;
  6138.     Flags: $0000001F;
  6139.     Version: 300;
  6140.     FontCount: 2;
  6141.     FontIDs: @CTFontIDs;
  6142.     PictureCount: 2;
  6143.     PictureIDs: @CTPictureIDs);
  6144. begin
  6145.   ControlData := @CControlData;
  6146. end;
  6147.  
  6148. procedure TCheckBox.CreateControl;
  6149.  
  6150.   procedure DoCreate;
  6151.   begin
  6152.     FIntf := IUnknown(OleObject) as IMdcCheckBox;
  6153.   end;
  6154.  
  6155. begin
  6156.   if FIntf = nil then DoCreate;
  6157. end;
  6158.  
  6159. function TCheckBox.GetControlInterface: IMdcCheckBox;
  6160. begin
  6161.   CreateControl;
  6162.   Result := FIntf;
  6163. end;
  6164.  
  6165. function TCheckBox.GetTOleEnumProp(Index: Integer): TOleEnum;
  6166. begin
  6167.   Result := GetIntegerProp(Index);
  6168. end;
  6169.  
  6170. procedure TCheckBox.SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  6171. begin
  6172.   SetIntegerProp(Index, Value);
  6173. end;
  6174.  
  6175. function TCheckBox.Get_Value: OleVariant;
  6176. begin
  6177.   CreateControl;
  6178.   Result := FIntf.Value;
  6179. end;
  6180.  
  6181. procedure TCheckBox.Set_Value(Value: OleVariant);
  6182. begin
  6183.   CreateControl;
  6184.   FIntf.Value := Value;
  6185. end;
  6186.  
  6187.  
  6188. procedure TOptionButton.InitControlData;
  6189. const
  6190.   CEventDispIDs: array[0..4] of Integer = (
  6191.     $00000003, $00000004, $00000002, $FFFFFD9E, $FFFFFDA0);
  6192.   CTFontIDs: array [0..1] of Integer = (
  6193.     $7FFFFDFF, $FFFFFE00);
  6194.   CTPictureIDs: array [0..1] of Integer = (
  6195.     $FFFFFDF6, $FFFFFDF5);
  6196.   CControlData: TControlData = (
  6197.     ClassID: '{8BD21D50-EC42-11CE-9E0D-00AA006002F3}';
  6198.     EventIID: '{8BD21D52-EC42-11CE-9E0D-00AA006002F3}';
  6199.     EventCount: 5;
  6200.     EventDispIDs: @CEventDispIDs;
  6201.     LicenseKey: nil;
  6202.     Flags: $0000001F;
  6203.     Version: 300;
  6204.     FontCount: 2;
  6205.     FontIDs: @CTFontIDs;
  6206.     PictureCount: 2;
  6207.     PictureIDs: @CTPictureIDs);
  6208. begin
  6209.   ControlData := @CControlData;
  6210. end;
  6211.  
  6212. procedure TOptionButton.CreateControl;
  6213.  
  6214.   procedure DoCreate;
  6215.   begin
  6216.     FIntf := IUnknown(OleObject) as IMdcOptionButton;
  6217.   end;
  6218.  
  6219. begin
  6220.   if FIntf = nil then DoCreate;
  6221. end;
  6222.  
  6223. function TOptionButton.GetControlInterface: IMdcOptionButton;
  6224. begin
  6225.   CreateControl;
  6226.   Result := FIntf;
  6227. end;
  6228.  
  6229. function TOptionButton.GetTOleEnumProp(Index: Integer): TOleEnum;
  6230. begin
  6231.   Result := GetIntegerProp(Index);
  6232. end;
  6233.  
  6234. procedure TOptionButton.SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  6235. begin
  6236.   SetIntegerProp(Index, Value);
  6237. end;
  6238.  
  6239. function TOptionButton.Get_Value: OleVariant;
  6240. begin
  6241.   CreateControl;
  6242.   Result := FIntf.Value;
  6243. end;
  6244.  
  6245. procedure TOptionButton.Set_Value(Value: OleVariant);
  6246. begin
  6247.   CreateControl;
  6248.   FIntf.Value := Value;
  6249. end;
  6250.  
  6251.  
  6252. procedure TToggleButton.InitControlData;
  6253. const
  6254.   CEventDispIDs: array[0..4] of Integer = (
  6255.     $00000003, $00000004, $00000002, $FFFFFD9E, $FFFFFDA0);
  6256.   CTFontIDs: array [0..1] of Integer = (
  6257.     $7FFFFDFF, $FFFFFE00);
  6258.   CTPictureIDs: array [0..1] of Integer = (
  6259.     $FFFFFDF6, $FFFFFDF5);
  6260.   CControlData: TControlData = (
  6261.     ClassID: '{8BD21D60-EC42-11CE-9E0D-00AA006002F3}';
  6262.     EventIID: '{8BD21D62-EC42-11CE-9E0D-00AA006002F3}';
  6263.     EventCount: 5;
  6264.     EventDispIDs: @CEventDispIDs;
  6265.     LicenseKey: nil;
  6266.     Flags: $0000001F;
  6267.     Version: 300;
  6268.     FontCount: 2;
  6269.     FontIDs: @CTFontIDs;
  6270.     PictureCount: 2;
  6271.     PictureIDs: @CTPictureIDs);
  6272. begin
  6273.   ControlData := @CControlData;
  6274. end;
  6275.  
  6276. procedure TToggleButton.CreateControl;
  6277.  
  6278.   procedure DoCreate;
  6279.   begin
  6280.     FIntf := IUnknown(OleObject) as IMdcToggleButton;
  6281.   end;
  6282.  
  6283. begin
  6284.   if FIntf = nil then DoCreate;
  6285. end;
  6286.  
  6287. function TToggleButton.GetControlInterface: IMdcToggleButton;
  6288. begin
  6289.   CreateControl;
  6290.   Result := FIntf;
  6291. end;
  6292.  
  6293. function TToggleButton.GetTOleEnumProp(Index: Integer): TOleEnum;
  6294. begin
  6295.   Result := GetIntegerProp(Index);
  6296. end;
  6297.  
  6298. procedure TToggleButton.SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  6299. begin
  6300.   SetIntegerProp(Index, Value);
  6301. end;
  6302.  
  6303. function TToggleButton.Get_Value: OleVariant;
  6304. begin
  6305.   CreateControl;
  6306.   Result := FIntf.Value;
  6307. end;
  6308.  
  6309. procedure TToggleButton.Set_Value(Value: OleVariant);
  6310. begin
  6311.   CreateControl;
  6312.   FIntf.Value := Value;
  6313. end;
  6314.  
  6315.  
  6316. procedure TScrollBar.InitControlData;
  6317. const
  6318.   CEventDispIDs: array[0..4] of Integer = (
  6319.     $00000003, $00000004, $00000002, $FFFFFDA0, $00000007);
  6320.   CTPictureIDs: array [0..0] of Integer = (
  6321.     $FFFFFDF6);
  6322.   CControlData: TControlData = (
  6323.     ClassID: '{DFD181E0-5E2F-11CE-A449-00AA004A803D}';
  6324.     EventIID: '{7B020EC2-AF6C-11CE-9F46-00AA00574A4F}';
  6325.     EventCount: 5;
  6326.     EventDispIDs: @CEventDispIDs;
  6327.     LicenseKey: nil;
  6328.     Flags: $0000000B;
  6329.     Version: 300;
  6330.     FontCount: 0;
  6331.     FontIDs: nil;
  6332.     PictureCount: 1;
  6333.     PictureIDs: @CTPictureIDs);
  6334. begin
  6335.   ControlData := @CControlData;
  6336. end;
  6337.  
  6338. procedure TScrollBar.CreateControl;
  6339.  
  6340.   procedure DoCreate;
  6341.   begin
  6342.     FIntf := IUnknown(OleObject) as IScrollbar;
  6343.   end;
  6344.  
  6345. begin
  6346.   if FIntf = nil then DoCreate;
  6347. end;
  6348.  
  6349. function TScrollBar.GetControlInterface: IScrollbar;
  6350. begin
  6351.   CreateControl;
  6352.   Result := FIntf;
  6353. end;
  6354.  
  6355. function TScrollBar.GetTOleEnumProp(Index: Integer): TOleEnum;
  6356. begin
  6357.   Result := GetIntegerProp(Index);
  6358. end;
  6359.  
  6360. procedure TScrollBar.SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  6361. begin
  6362.   SetIntegerProp(Index, Value);
  6363. end;
  6364.  
  6365.  
  6366. procedure TTabStrip.InitControlData;
  6367. const
  6368.   CEventDispIDs: array[0..3] of Integer = (
  6369.     $00000003, $00000004, $00000002, $FFFFFDA0);
  6370.   CTFontIDs: array [0..1] of Integer = (
  6371.     $7FFFFDFF, $FFFFFE00);
  6372.   CTPictureIDs: array [0..0] of Integer = (
  6373.     $FFFFFDF6);
  6374.   CControlData: TControlData = (
  6375.     ClassID: '{EAE50EB0-4A62-11CE-BED6-00AA00611080}';
  6376.     EventIID: '{7B020EC7-AF6C-11CE-9F46-00AA00574A4F}';
  6377.     EventCount: 4;
  6378.     EventDispIDs: @CEventDispIDs;
  6379.     LicenseKey: nil;
  6380.     Flags: $0000000F;
  6381.     Version: 300;
  6382.     FontCount: 2;
  6383.     FontIDs: @CTFontIDs;
  6384.     PictureCount: 1;
  6385.     PictureIDs: @CTPictureIDs);
  6386. begin
  6387.   ControlData := @CControlData;
  6388. end;
  6389.  
  6390. procedure TTabStrip.CreateControl;
  6391.  
  6392.   procedure DoCreate;
  6393.   begin
  6394.     FIntf := IUnknown(OleObject) as ITabStrip;
  6395.   end;
  6396.  
  6397. begin
  6398.   if FIntf = nil then DoCreate;
  6399. end;
  6400.  
  6401. function TTabStrip.GetControlInterface: ITabStrip;
  6402. begin
  6403.   CreateControl;
  6404.   Result := FIntf;
  6405. end;
  6406.  
  6407. function TTabStrip.GetTOleEnumProp(Index: Integer): TOleEnum;
  6408. begin
  6409.   Result := GetIntegerProp(Index);
  6410. end;
  6411.  
  6412. procedure TTabStrip.SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  6413. begin
  6414.   SetIntegerProp(Index, Value);
  6415. end;
  6416.  
  6417. procedure TTabStrip._SetTabFixedWidth(TabFixedWidth: Integer);
  6418. begin
  6419.   CreateControl;
  6420.   FIntf._SetTabFixedWidth(TabFixedWidth);
  6421. end;
  6422.  
  6423. procedure TTabStrip._GetTabFixedWidth(out TabFixedWidth: Integer);
  6424. begin
  6425.   CreateControl;
  6426.   FIntf._GetTabFixedWidth(TabFixedWidth);
  6427. end;
  6428.  
  6429. procedure TTabStrip._SetTabFixedHeight(TabFixedHeight: Integer);
  6430. begin
  6431.   CreateControl;
  6432.   FIntf._SetTabFixedHeight(TabFixedHeight);
  6433. end;
  6434.  
  6435. procedure TTabStrip._GetTabFixedHeight(out TabFixedHeight: Integer);
  6436. begin
  6437.   CreateControl;
  6438.   FIntf._GetTabFixedHeight(TabFixedHeight);
  6439. end;
  6440.  
  6441. procedure TTabStrip._GetClientTop(out ClientTop: Integer);
  6442. begin
  6443.   CreateControl;
  6444.   FIntf._GetClientTop(ClientTop);
  6445. end;
  6446.  
  6447. procedure TTabStrip._GetClientLeft(out ClientLeft: Integer);
  6448. begin
  6449.   CreateControl;
  6450.   FIntf._GetClientLeft(ClientLeft);
  6451. end;
  6452.  
  6453. procedure TTabStrip._GetClientWidth(out ClientWidth: Integer);
  6454. begin
  6455.   CreateControl;
  6456.   FIntf._GetClientWidth(ClientWidth);
  6457. end;
  6458.  
  6459. procedure TTabStrip._GetClientHeight(out ClientHeight: Integer);
  6460. begin
  6461.   CreateControl;
  6462.   FIntf._GetClientHeight(ClientHeight);
  6463. end;
  6464.  
  6465. function TTabStrip.Get_Tabs: Tabs;
  6466. begin
  6467.   CreateControl;
  6468.   Result := FIntf.Tabs;
  6469. end;
  6470.  
  6471. function TTabStrip.Get_SelectedItem: Tab;
  6472. begin
  6473.   CreateControl;
  6474.   Result := FIntf.SelectedItem;
  6475. end;
  6476.  
  6477.  
  6478. procedure TSpinButton.InitControlData;
  6479. const
  6480.   CEventDispIDs: array[0..5] of Integer = (
  6481.     $00000003, $00000004, $00000002, $FFFFFDA0, $00000005, $00000006);
  6482.   CTPictureIDs: array [0..0] of Integer = (
  6483.     $FFFFFDF6);
  6484.   CControlData: TControlData = (
  6485.     ClassID: '{79176FB0-B7F2-11CE-97EF-00AA006D2776}';
  6486.     EventIID: '{79176FB2-B7F2-11CE-97EF-00AA006D2776}';
  6487.     EventCount: 6;
  6488.     EventDispIDs: @CEventDispIDs;
  6489.     LicenseKey: nil;
  6490.     Flags: $0000000B;
  6491.     Version: 300;
  6492.     FontCount: 0;
  6493.     FontIDs: nil;
  6494.     PictureCount: 1;
  6495.     PictureIDs: @CTPictureIDs);
  6496. begin
  6497.   ControlData := @CControlData;
  6498. end;
  6499.  
  6500. procedure TSpinButton.CreateControl;
  6501.  
  6502.   procedure DoCreate;
  6503.   begin
  6504.     FIntf := IUnknown(OleObject) as ISpinbutton;
  6505.   end;
  6506.  
  6507. begin
  6508.   if FIntf = nil then DoCreate;
  6509. end;
  6510.  
  6511. function TSpinButton.GetControlInterface: ISpinbutton;
  6512. begin
  6513.   CreateControl;
  6514.   Result := FIntf;
  6515. end;
  6516.  
  6517. function TSpinButton.GetTOleEnumProp(Index: Integer): TOleEnum;
  6518. begin
  6519.   Result := GetIntegerProp(Index);
  6520. end;
  6521.  
  6522. procedure TSpinButton.SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  6523. begin
  6524.   SetIntegerProp(Index, Value);
  6525. end;
  6526.  
  6527.  
  6528. procedure TImage.InitControlData;
  6529. const
  6530.   CEventDispIDs: array[0..2] of Integer = (
  6531.     $00000003, $00000004, $FFFFFDA0);
  6532.   CTPictureIDs: array [0..1] of Integer = (
  6533.     $FFFFFDF5, $FFFFFDF6);
  6534.   CControlData: TControlData = (
  6535.     ClassID: '{4C599241-6926-101B-9992-00000B65C6F9}';
  6536.     EventIID: '{4C5992A5-6926-101B-9992-00000B65C6F9}';
  6537.     EventCount: 3;
  6538.     EventDispIDs: @CEventDispIDs;
  6539.     LicenseKey: nil;
  6540.     Flags: $00000009;
  6541.     Version: 300;
  6542.     FontCount: 0;
  6543.     FontIDs: nil;
  6544.     PictureCount: 2;
  6545.     PictureIDs: @CTPictureIDs);
  6546. begin
  6547.   ControlData := @CControlData;
  6548. end;
  6549.  
  6550. procedure TImage.CreateControl;
  6551.  
  6552.   procedure DoCreate;
  6553.   begin
  6554.     FIntf := IUnknown(OleObject) as IImage;
  6555.   end;
  6556.  
  6557. begin
  6558.   if FIntf = nil then DoCreate;
  6559. end;
  6560.  
  6561. function TImage.GetControlInterface: IImage;
  6562. begin
  6563.   CreateControl;
  6564.   Result := FIntf;
  6565. end;
  6566.  
  6567. function TImage.GetTOleEnumProp(Index: Integer): TOleEnum;
  6568. begin
  6569.   Result := GetIntegerProp(Index);
  6570. end;
  6571.  
  6572. procedure TImage.SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  6573. begin
  6574.   SetIntegerProp(Index, Value);
  6575. end;
  6576.  
  6577.  
  6578. procedure THTMLSubmit.InitControlData;
  6579. const
  6580.   CControlData: TControlData = (
  6581.     ClassID: '{5512D110-5CC6-11CF-8D67-00AA00BDCE1D}';
  6582.     EventIID: '{796ED650-5FE9-11CF-8D68-00AA00BDCE1D}';
  6583.     EventCount: 0;
  6584.     EventDispIDs: nil;
  6585.     LicenseKey: nil;
  6586.     Flags: $00000000;
  6587.     Version: 300);
  6588. begin
  6589.   ControlData := @CControlData;
  6590. end;
  6591.  
  6592. procedure THTMLSubmit.CreateControl;
  6593.  
  6594.   procedure DoCreate;
  6595.   begin
  6596.     FIntf := IUnknown(OleObject) as IWHTMLSubmitButton;
  6597.   end;
  6598.  
  6599. begin
  6600.   if FIntf = nil then DoCreate;
  6601. end;
  6602.  
  6603. function THTMLSubmit.GetControlInterface: IWHTMLSubmitButton;
  6604. begin
  6605.   CreateControl;
  6606.   Result := FIntf;
  6607. end;
  6608.  
  6609. function THTMLSubmit.GetTOleEnumProp(Index: Integer): TOleEnum;
  6610. begin
  6611.   Result := GetIntegerProp(Index);
  6612. end;
  6613.  
  6614. procedure THTMLSubmit.SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  6615. begin
  6616.   SetIntegerProp(Index, Value);
  6617. end;
  6618.  
  6619.  
  6620. procedure THTMLImage.InitControlData;
  6621. const
  6622.   CControlData: TControlData = (
  6623.     ClassID: '{5512D112-5CC6-11CF-8D67-00AA00BDCE1D}';
  6624.     EventIID: '{47FF8FE0-6198-11CF-8CE8-00AA006CB389}';
  6625.     EventCount: 0;
  6626.     EventDispIDs: nil;
  6627.     LicenseKey: nil;
  6628.     Flags: $00000000;
  6629.     Version: 300);
  6630. begin
  6631.   ControlData := @CControlData;
  6632. end;
  6633.  
  6634. procedure THTMLImage.CreateControl;
  6635.  
  6636.   procedure DoCreate;
  6637.   begin
  6638.     FIntf := IUnknown(OleObject) as IWHTMLImage;
  6639.   end;
  6640.  
  6641. begin
  6642.   if FIntf = nil then DoCreate;
  6643. end;
  6644.  
  6645. function THTMLImage.GetControlInterface: IWHTMLImage;
  6646. begin
  6647.   CreateControl;
  6648.   Result := FIntf;
  6649. end;
  6650.  
  6651. function THTMLImage.GetTOleEnumProp(Index: Integer): TOleEnum;
  6652. begin
  6653.   Result := GetIntegerProp(Index);
  6654. end;
  6655.  
  6656. procedure THTMLImage.SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  6657. begin
  6658.   SetIntegerProp(Index, Value);
  6659. end;
  6660.  
  6661.  
  6662. procedure THTMLReset.InitControlData;
  6663. const
  6664.   CControlData: TControlData = (
  6665.     ClassID: '{5512D114-5CC6-11CF-8D67-00AA00BDCE1D}';
  6666.     EventIID: '{47FF8FE1-6198-11CF-8CE8-00AA006CB389}';
  6667.     EventCount: 0;
  6668.     EventDispIDs: nil;
  6669.     LicenseKey: nil;
  6670.     Flags: $00000000;
  6671.     Version: 300);
  6672. begin
  6673.   ControlData := @CControlData;
  6674. end;
  6675.  
  6676. procedure THTMLReset.CreateControl;
  6677.  
  6678.   procedure DoCreate;
  6679.   begin
  6680.     FIntf := IUnknown(OleObject) as IWHTMLReset;
  6681.   end;
  6682.  
  6683. begin
  6684.   if FIntf = nil then DoCreate;
  6685. end;
  6686.  
  6687. function THTMLReset.GetControlInterface: IWHTMLReset;
  6688. begin
  6689.   CreateControl;
  6690.   Result := FIntf;
  6691. end;
  6692.  
  6693. function THTMLReset.GetTOleEnumProp(Index: Integer): TOleEnum;
  6694. begin
  6695.   Result := GetIntegerProp(Index);
  6696. end;
  6697.  
  6698. procedure THTMLReset.SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  6699. begin
  6700.   SetIntegerProp(Index, Value);
  6701. end;
  6702.  
  6703.  
  6704. procedure THTMLCheckbox.InitControlData;
  6705. const
  6706.   CControlData: TControlData = (
  6707.     ClassID: '{5512D116-5CC6-11CF-8D67-00AA00BDCE1D}';
  6708.     EventIID: '{47FF8FE2-6198-11CF-8CE8-00AA006CB389}';
  6709.     EventCount: 0;
  6710.     EventDispIDs: nil;
  6711.     LicenseKey: nil;
  6712.     Flags: $00000000;
  6713.     Version: 300);
  6714. begin
  6715.   ControlData := @CControlData;
  6716. end;
  6717.  
  6718. procedure THTMLCheckbox.CreateControl;
  6719.  
  6720.   procedure DoCreate;
  6721.   begin
  6722.     FIntf := IUnknown(OleObject) as IWHTMLCheckbox;
  6723.   end;
  6724.  
  6725. begin
  6726.   if FIntf = nil then DoCreate;
  6727. end;
  6728.  
  6729. function THTMLCheckbox.GetControlInterface: IWHTMLCheckbox;
  6730. begin
  6731.   CreateControl;
  6732.   Result := FIntf;
  6733. end;
  6734.  
  6735. function THTMLCheckbox.GetTOleEnumProp(Index: Integer): TOleEnum;
  6736. begin
  6737.   Result := GetIntegerProp(Index);
  6738. end;
  6739.  
  6740. procedure THTMLCheckbox.SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  6741. begin
  6742.   SetIntegerProp(Index, Value);
  6743. end;
  6744.  
  6745.  
  6746. procedure THTMLOption.InitControlData;
  6747. const
  6748.   CControlData: TControlData = (
  6749.     ClassID: '{5512D118-5CC6-11CF-8D67-00AA00BDCE1D}';
  6750.     EventIID: '{47FF8FE3-6198-11CF-8CE8-00AA006CB389}';
  6751.     EventCount: 0;
  6752.     EventDispIDs: nil;
  6753.     LicenseKey: nil;
  6754.     Flags: $00000000;
  6755.     Version: 300);
  6756. begin
  6757.   ControlData := @CControlData;
  6758. end;
  6759.  
  6760. procedure THTMLOption.CreateControl;
  6761.  
  6762.   procedure DoCreate;
  6763.   begin
  6764.     FIntf := IUnknown(OleObject) as IWHTMLOption;
  6765.   end;
  6766.  
  6767. begin
  6768.   if FIntf = nil then DoCreate;
  6769. end;
  6770.  
  6771. function THTMLOption.GetControlInterface: IWHTMLOption;
  6772. begin
  6773.   CreateControl;
  6774.   Result := FIntf;
  6775. end;
  6776.  
  6777. function THTMLOption.GetTOleEnumProp(Index: Integer): TOleEnum;
  6778. begin
  6779.   Result := GetIntegerProp(Index);
  6780. end;
  6781.  
  6782. procedure THTMLOption.SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  6783. begin
  6784.   SetIntegerProp(Index, Value);
  6785. end;
  6786.  
  6787.  
  6788. procedure THTMLText.InitControlData;
  6789. const
  6790.   CControlData: TControlData = (
  6791.     ClassID: '{5512D11A-5CC6-11CF-8D67-00AA00BDCE1D}';
  6792.     EventIID: '{47FF8FE4-6198-11CF-8CE8-00AA006CB389}';
  6793.     EventCount: 0;
  6794.     EventDispIDs: nil;
  6795.     LicenseKey: nil;
  6796.     Flags: $00000000;
  6797.     Version: 300);
  6798. begin
  6799.   ControlData := @CControlData;
  6800. end;
  6801.  
  6802. procedure THTMLText.CreateControl;
  6803.  
  6804.   procedure DoCreate;
  6805.   begin
  6806.     FIntf := IUnknown(OleObject) as IWHTMLText;
  6807.   end;
  6808.  
  6809. begin
  6810.   if FIntf = nil then DoCreate;
  6811. end;
  6812.  
  6813. function THTMLText.GetControlInterface: IWHTMLText;
  6814. begin
  6815.   CreateControl;
  6816.   Result := FIntf;
  6817. end;
  6818.  
  6819. function THTMLText.GetTOleEnumProp(Index: Integer): TOleEnum;
  6820. begin
  6821.   Result := GetIntegerProp(Index);
  6822. end;
  6823.  
  6824. procedure THTMLText.SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  6825. begin
  6826.   SetIntegerProp(Index, Value);
  6827. end;
  6828.  
  6829.  
  6830. procedure THTMLHidden.InitControlData;
  6831. const
  6832.   CControlData: TControlData = (
  6833.     ClassID: '{5512D11C-5CC6-11CF-8D67-00AA00BDCE1D}';
  6834.     EventIID: '{47FF8FE5-6198-11CF-8CE8-00AA006CB389}';
  6835.     EventCount: 0;
  6836.     EventDispIDs: nil;
  6837.     LicenseKey: nil;
  6838.     Flags: $00000000;
  6839.     Version: 300);
  6840. begin
  6841.   ControlData := @CControlData;
  6842. end;
  6843.  
  6844. procedure THTMLHidden.CreateControl;
  6845.  
  6846.   procedure DoCreate;
  6847.   begin
  6848.     FIntf := IUnknown(OleObject) as IWHTMLHidden;
  6849.   end;
  6850.  
  6851. begin
  6852.   if FIntf = nil then DoCreate;
  6853. end;
  6854.  
  6855. function THTMLHidden.GetControlInterface: IWHTMLHidden;
  6856. begin
  6857.   CreateControl;
  6858.   Result := FIntf;
  6859. end;
  6860.  
  6861. function THTMLHidden.GetTOleEnumProp(Index: Integer): TOleEnum;
  6862. begin
  6863.   Result := GetIntegerProp(Index);
  6864. end;
  6865.  
  6866. procedure THTMLHidden.SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  6867. begin
  6868.   SetIntegerProp(Index, Value);
  6869. end;
  6870.  
  6871.  
  6872. procedure THTMLPassword.InitControlData;
  6873. const
  6874.   CControlData: TControlData = (
  6875.     ClassID: '{5512D11E-5CC6-11CF-8D67-00AA00BDCE1D}';
  6876.     EventIID: '{47FF8FE6-6198-11CF-8CE8-00AA006CB389}';
  6877.     EventCount: 0;
  6878.     EventDispIDs: nil;
  6879.     LicenseKey: nil;
  6880.     Flags: $00000000;
  6881.     Version: 300);
  6882. begin
  6883.   ControlData := @CControlData;
  6884. end;
  6885.  
  6886. procedure THTMLPassword.CreateControl;
  6887.  
  6888.   procedure DoCreate;
  6889.   begin
  6890.     FIntf := IUnknown(OleObject) as IWHTMLPassword;
  6891.   end;
  6892.  
  6893. begin
  6894.   if FIntf = nil then DoCreate;
  6895. end;
  6896.  
  6897. function THTMLPassword.GetControlInterface: IWHTMLPassword;
  6898. begin
  6899.   CreateControl;
  6900.   Result := FIntf;
  6901. end;
  6902.  
  6903. function THTMLPassword.GetTOleEnumProp(Index: Integer): TOleEnum;
  6904. begin
  6905.   Result := GetIntegerProp(Index);
  6906. end;
  6907.  
  6908. procedure THTMLPassword.SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  6909. begin
  6910.   SetIntegerProp(Index, Value);
  6911. end;
  6912.  
  6913.  
  6914. procedure THTMLSelect.InitControlData;
  6915. const
  6916.   CControlData: TControlData = (
  6917.     ClassID: '{5512D122-5CC6-11CF-8D67-00AA00BDCE1D}';
  6918.     EventIID: '{47FF8FE8-6198-11CF-8CE8-00AA006CB389}';
  6919.     EventCount: 0;
  6920.     EventDispIDs: nil;
  6921.     LicenseKey: nil;
  6922.     Flags: $00000000;
  6923.     Version: 300);
  6924. begin
  6925.   ControlData := @CControlData;
  6926. end;
  6927.  
  6928. procedure THTMLSelect.CreateControl;
  6929.  
  6930.   procedure DoCreate;
  6931.   begin
  6932.     FIntf := IUnknown(OleObject) as IWHTMLSelect;
  6933.   end;
  6934.  
  6935. begin
  6936.   if FIntf = nil then DoCreate;
  6937. end;
  6938.  
  6939. function THTMLSelect.GetControlInterface: IWHTMLSelect;
  6940. begin
  6941.   CreateControl;
  6942.   Result := FIntf;
  6943. end;
  6944.  
  6945. function THTMLSelect.GetTOleEnumProp(Index: Integer): TOleEnum;
  6946. begin
  6947.   Result := GetIntegerProp(Index);
  6948. end;
  6949.  
  6950. procedure THTMLSelect.SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  6951. begin
  6952.   SetIntegerProp(Index, Value);
  6953. end;
  6954.  
  6955. function THTMLSelect.Get_Values: OleVariant;
  6956. begin
  6957.   CreateControl;
  6958.   Result := FIntf.Values;
  6959. end;
  6960.  
  6961. procedure THTMLSelect.Set_Values(Value: OleVariant);
  6962. begin
  6963.   CreateControl;
  6964.   FIntf.Values := Value;
  6965. end;
  6966.  
  6967. function THTMLSelect.Get_DisplayValues: OleVariant;
  6968. begin
  6969.   CreateControl;
  6970.   Result := FIntf.DisplayValues;
  6971. end;
  6972.  
  6973. procedure THTMLSelect.Set_DisplayValues(Value: OleVariant);
  6974. begin
  6975.   CreateControl;
  6976.   FIntf.DisplayValues := Value;
  6977. end;
  6978.  
  6979.  
  6980. procedure THTMLTextArea.InitControlData;
  6981. const
  6982.   CControlData: TControlData = (
  6983.     ClassID: '{5512D124-5CC6-11CF-8D67-00AA00BDCE1D}';
  6984.     EventIID: '{47FF8FE9-6198-11CF-8CE8-00AA006CB389}';
  6985.     EventCount: 0;
  6986.     EventDispIDs: nil;
  6987.     LicenseKey: nil;
  6988.     Flags: $00000000;
  6989.     Version: 300);
  6990. begin
  6991.   ControlData := @CControlData;
  6992. end;
  6993.  
  6994. procedure THTMLTextArea.CreateControl;
  6995.  
  6996.   procedure DoCreate;
  6997.   begin
  6998.     FIntf := IUnknown(OleObject) as IWHTMLTextArea;
  6999.   end;
  7000.  
  7001. begin
  7002.   if FIntf = nil then DoCreate;
  7003. end;
  7004.  
  7005. function THTMLTextArea.GetControlInterface: IWHTMLTextArea;
  7006. begin
  7007.   CreateControl;
  7008.   Result := FIntf;
  7009. end;
  7010.  
  7011. function THTMLTextArea.GetTOleEnumProp(Index: Integer): TOleEnum;
  7012. begin
  7013.   Result := GetIntegerProp(Index);
  7014. end;
  7015.  
  7016. procedure THTMLTextArea.SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  7017. begin
  7018.   SetIntegerProp(Index, Value);
  7019. end;
  7020.  
  7021.  
  7022. procedure TMultiPage.InitControlData;
  7023. const
  7024.   CEventDispIDs: array[0..8] of Integer = (
  7025.     $00000300, $00000003, $00000004, $00000002, $FFFFFDA0, $00000302,
  7026.     $00000303, $00000304, $00000305);
  7027.   CTFontIDs: array [0..1] of Integer = (
  7028.     $7FFFFDFF, $FFFFFE00);
  7029.   CControlData: TControlData = (
  7030.     ClassID: '{46E31370-3F7A-11CE-BED6-00AA00611080}';
  7031.     EventIID: '{7B020EC8-AF6C-11CE-9F46-00AA00574A4F}';
  7032.     EventCount: 9;
  7033.     EventDispIDs: @CEventDispIDs;
  7034.     LicenseKey: nil;
  7035.     Flags: $0000000F;
  7036.     Version: 300;
  7037.     FontCount: 2;
  7038.     FontIDs: @CTFontIDs);
  7039. begin
  7040.   ControlData := @CControlData;
  7041. end;
  7042.  
  7043. procedure TMultiPage.CreateControl;
  7044.  
  7045.   procedure DoCreate;
  7046.   begin
  7047.     FIntf := IUnknown(OleObject) as IMultiPage;
  7048.   end;
  7049.  
  7050. begin
  7051.   if FIntf = nil then DoCreate;
  7052. end;
  7053.  
  7054. function TMultiPage.GetControlInterface: IMultiPage;
  7055. begin
  7056.   CreateControl;
  7057.   Result := FIntf;
  7058. end;
  7059.  
  7060. function TMultiPage.GetTOleEnumProp(Index: Integer): TOleEnum;
  7061. begin
  7062.   Result := GetIntegerProp(Index);
  7063. end;
  7064.  
  7065. procedure TMultiPage.SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  7066. begin
  7067.   SetIntegerProp(Index, Value);
  7068. end;
  7069.  
  7070. procedure TMultiPage._SetTabFixedWidth(Width: Integer);
  7071. begin
  7072.   CreateControl;
  7073.   FIntf._SetTabFixedWidth(Width);
  7074. end;
  7075.  
  7076. procedure TMultiPage._GetTabFixedWidth(out Width: Integer);
  7077. begin
  7078.   CreateControl;
  7079.   FIntf._GetTabFixedWidth(Width);
  7080. end;
  7081.  
  7082. procedure TMultiPage._SetTabFixedHeight(Height: Integer);
  7083. begin
  7084.   CreateControl;
  7085.   FIntf._SetTabFixedHeight(Height);
  7086. end;
  7087.  
  7088. procedure TMultiPage._GetTabFixedHeight(out Height: Integer);
  7089. begin
  7090.   CreateControl;
  7091.   FIntf._GetTabFixedHeight(Height);
  7092. end;
  7093.  
  7094. function TMultiPage.Get_SelectedItem: Page;
  7095. begin
  7096.   CreateControl;
  7097.   Result := FIntf.SelectedItem;
  7098. end;
  7099.  
  7100. function TMultiPage.Get_Pages: Pages;
  7101. begin
  7102.   CreateControl;
  7103.   Result := FIntf.Pages;
  7104. end;
  7105.  
  7106.  
  7107. procedure Register;
  7108. begin
  7109.   RegisterComponents('ActiveX', [TUserForm, TFrame, TLabel_, TCommandButton, TTextBox, TListBox, TComboBox, TCheckBox, TOptionButton, TToggleButton, TScrollBar, TTabStrip, TSpinButton, TImage, THTMLSubmit, THTMLImage, THTMLReset, THTMLCheckbox, THTMLOption, THTMLText, THTMLHidden, THTMLPassword, THTMLSelect, THTMLTextArea, TMultiPage]);
  7110. end;
  7111.  
  7112. end.
  7113.